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l.O PREFACE 



1*1 PREFACE TO REVISION E 

Revision £ of the Coraroon Nodules Hatheffiatical library CCHHL) External 
Reference Specification CERS) describes CMML capabilities at Release 
1«1»3» This revision incorporates features that were specified in 
approved OAPs and other corrections and clarifications to the text since 
the last complete update of the ERS* 

The mathematical functions* COTAN* EXT8* and INS8 (DAP S4945) are new 

features for Release 1«1*3# Their error nunbers have been changed from 

the ones specified In the DAP, The VAX_to,!:i80 conversion routines (DAP 
S4821) were released at l.l»2« 



1.2 SCOPE 



The C180 fiatheraat ical Library* as defined In this document* is called 
the Cofflfflon Modules Math Library (CMHL)» but is co!ii?nonty referred to as 
HATHLI8 or the Hath Library. It is a collection of mathematical 
functions and routines* numeric and data conversion routines* and 
assembly language support system CALSS) routines that provide access to 
some machine language instruction capabilities not otherwise available 
to non-assembly language programs* The numeric conversion and assembly 
language support routines will be referred to jointly as the CMHL Common 
Support routines In this document. 



This document gives the external specifications of the CMML but also 
includes some internal details because of Its frequent use by product 
set developers. The ALSS routines formerly specified In DCS document 
S3410* have been Incorporated here because they are now a standard part 
of the CMHL. The CHHL common support modules are discussed separately 
from the mathematical functions because they differ In linkage interface 
and error handling* 

Three appendices are included. Appendix A contains the CYBIL constant 
and type declarations needed by the numeric-conversion and ALSS 
routines. Appendix 8 contains the error nessage templates used by the 
mathematical functions and routines. Appendix C contains a listing of 
the file used in converting CMML's common deck PL from MAOIFY format to 
SCU format. 



This document does not include information on the algorithms used by 
CMML routines or error analyses of these routines. The algorithms are 
in a state of flux* and the tools needed for' error" analyses do not 
currently exist. This information will be oublished in the CMHL 
Reference Manual . 
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For per f orfTiance reasons» most of the CHHL rbutlnes •«ifi be written in 
C180 assembly language* Some of the accessary and error processing code 
will be written in CYBIL* 

1.3 REFERENCES 



Cyber 180 Hainframe Hodel-Indapendent Sensral Design Specification 
CMIGDS) OCS tog Id ARH1700. 

Cyber 180 System Interface Specification (SIS) DCS Log Id S2196, 

CHHL Assefl?bly-Langyage Support Syste^n (ALSS) DCS Log Id S3410. 

VAX File Higratlon DAP, OCS Log Id S47^3. 

CMML VAX to C180 Conversion Routines DA?>% DCS Log Id S4821, 

CHHL ERS C180 Product Set and CDC FORTRAN DAP, DCS Log Id S4945. 
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2^0 HATHEHATICAL FUNCTIONS AND ROUTINES 



2.1 INTRODUCTION 



Ttie Hatfiemat i cal Routines of CMHl are used to etfaluate coinmonly 
occurring mathematical functions and operations^ and those required by 
the various language standards. All laathefnatl cal routines will be 
written in C180 Asseinbly language Cexceptlons to this will be specified 
i n the I PR update) « 

Hany of the functions of the Hath Library i^i 1 1 be I up I ewen tad in-line by 
C180 products. The in-line version of a function returns the same 
result C f or the same argument list) as the iath Library. 

2.2 NUH8ER TYPES 



atheiBatical routines deal with computations 
r f VD *» <; J 



upon four different 



The m 

number types J 

1. INTEGER 

An Integer nunnber is a one-word right-justified two's compl eruent 64-bit 
representation of a value with a magnitude It the range front -2**63 to 
2**63-1. 

{Reference the C180 lilGOS^ section 2.2.2.) 

All integers are considered standard forms. 

2. SINGLE (single precision floating point) 

A single precision floating point nusuber consists of a sign bit* S> 
which is the sign of the fraction* a signed biased exponent (15 bits)* 
and a fraction (48 bits) which is also called a coefficient or a 
mantissa. (Reference the C180 MIGDS* section 2.4.1.1) 

Single precision floating point (real) numbers in the C130 consist of 
two types* (not including coefficient sign)* standard and non-standard. 
The standard numbers are those with exponents in the range 
3000( 16) «.4FFF(16 ) # inclusive* which have a non-zero fraction. Standard 
numbers also come in two types* normalized and unnor mal I zed. A 
normalized standard number has a one in bit position 16 (i.e.* the most 
significant bit of the fraction). 



The range in magnitude* 
precision numbers is 



M* covered by standard* normalized single 
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CApproxifBately 14.4 decimal digits of precision). 



Non-standard floating point nutibers have fnany representations; 



+/-INF 
+/-Inf Inite 



C S,5O0OO0000G0OO0OO<16) 3 

Floating point nurobers havinci exponents In the range 

5000(16). .6FFF(16I, 



♦/-INO C S*700G000000000G00<16) 3 

+/-Indef Ini tef Floating point numbers having exponents In the range 



INDEF 
Zero ill) 

Zero (Z2> 

Zero CZ3) 

Zero (0) 



7000<16)..7FFF{16I. 

Zeros Floating point numbers hiving exponents in the 
range OOOOC 16) . .OFFF< 16> . 

UnderfloM* zero: Floating point nijmbers having 
exponents in the range 1000(1*5) .!.2ff ft 16). 

ZeroJ An unnormallzed floating point number with a 
zero fraction and a standard exponent. 

Zero! A sign bit followed by 53 ?ero bits. 



(Reference the €180 MIGDSf Section 2 •4.1.2-2.4.1.3 and Table 2.4-1 for a 
full discussion of floating point numbers.) 

3. DOUBLE (precision floating point) 

A double precision floating point number consists of two words* both of 
which are single precision numbers. The coefficient of the second word 
Is considered to be an extension of the fraction of the first word* 
yielding a 96-bit fraction. 

The exponent of the second word must be identical to that of the first 
word. 

The type of the first single number determines the type of the double 
number . 

The range In magnitude^ M» covered by standard* normalized double 
precision numbers is 

2**-4097 <= M <= (l-2**-96) * 2**4095 

( Approxi pate ly 28.9 decimal digits of or'ecislon). 



COMPLEX 
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A compfex nkimber consists of two Mords* eacti a single precision floating 
point number* The first word represents the real part of the complex 
rmmberf the second word represents the ifliagl^ary part. 

A complex nuinber is considered to be +/-IHDEF if either the real or 
imaginary part is +/-INOEE* Siflillarly* a conplex number Is considered 
to be +/-imF if either the real or imaginary part Is */-INF. 

2.3 GENERAL RULES 



The following general rules apply to the use 3f these number forn^s in 
coiiputat lonal operations within the Hath Library: 

Rule number ones 
Unless specifically documented otherwise* If a standard number of the 
appropriate type Is employed In a computational operation* a standard 
number of the appropriate type will result. The documented exceptions 
to this cover such things as computing an answer which exceeds the 
limits of the standard forms* or perforlilng a mathematically Invalid 
operation. 

Rule number two: 
Unless specifically documented otherwise^ If either? 

a.) A non-standard number* other than zar^ (01 > Is employed In a 
computational operation* or 

b.) The documented limits in rule nunber one above are exceeded* 
error handling (see below) will occur.' The documented exceptions 
to this cover some cases wherein various non-standard numbers are 
within the domain of the function. 

These two rules define the limits of CDC support in the area and also 
the completeness of the supporting documentation.^ 

2.4 OOCUMENTATION CONVENTIONS 



Certain conventions and definitions are observed In this document. 

• Symbolic names are always delimited by blanks* and any alphabetic 
letters appearing therein are in upper' case. 

. 3oth ^ and two quantities separated by a comua and enclosed in 
parentheses denote juxtaposition and are used in referring to 
complex or double precision quantities.? 
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AH valyas given are in deci ma i# unl ess otHerwi se noted. When bit 
configurations are listed* the radix m^^ be listed in parentheses 
after the string. 

An argument iist is an ordered n-tuple o^ arljuments CXI 9 ...f 
%nlf where XI § *..» Xn are the arguments in order* For 
convenience* we identify arguments with corresponding one-raewber 
argument lists. 

The doBiain of an entry point is the collection of argument lists 



for which that entry point has been designed to return meaningful 
results without generating an error condition.? 

The range of an entry point is the coHection of results obtained 

by entering members of the domain Into the entry point. 

Arguments of trigonometric functions and results of Inverse 
tr igonoroetr i c functions are measured in radians* unless otherwise 
noted. 

The symbol * denotes multiplication* / denotes division* and ** 
denotes exponentiation. 



2.5 LINKAGE INTERFACE 



The mathematical routines are functions that return a single value to 
the caller. Their linkage interface conforms to the SIS conventions for 
scalar functions whose values are of known length less than or e<iuai to 
128 bits. 

Two modes of entry are provided? a call-by-reference linkage and a 
call-by-value linkage. Under cal l-by-ref er ence* r eg! ster A4 points to 
the actual parameter list. Under cal l-by-val ue* the successive words of 
the successive arguments are laid out contiguously In the X registers* 
beginning with X2* as described for register" call functions in the SIS. 
For example* the calling sequence to MLPtVITOO uses registers X2f X3* 
X4* where X2 holds the integer base* and X3'^X4 holds the double 
precision exponent. (This is in accor'laice with the SIS for C180 
software.) Calls to the mathematical routines are by CALLSEG or CALLREL 
C180 instructions* and return is via the C18D RETUR^I instruction. 

Upon normal return* result values are retur'r^ed In registers XE and XF. 
64-bit results (type INTEGER and SINGLE) are returned in XF. 128-bit 
results <type DOUBLE and COMPLEX) are returned In XE'^XF (also denoted 



(XE^XfU* For type DQUBLEt tl^e most s i gni f I cant part wi H be in XE 

For type COHPLEXf the the real part wiH bB In XE, 
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2,6 ERROR HANDLING 



Error recovery is the response of the C180 iath Library to the detection 
of an argywent list or result outside the doial^ of the function. There 
are two modes of error recovery* dependl'ig on whether the calling 
sequence yid^s ca I I -by-refer ence or cai l-by-val ue, 

2,6,1 CALL-BY-REFERENCE 

Under cal l-by-r ef erence* the Math LIbrarV vil I f generate the special 
software condition MATH.LI8RARY.ERRQR. 

When an error occurs in a CMML function under call -by-r ef erence* the 
following events occur? 

1, An appropriate abnormal status is set nto global variable 
MLV$STATUS Cof type OSTSSTATUS), 

2, The appropriate default error value (indicated in the function 
descriptions) is placed In the result reglsterCsl (XF or XE'^^XF), 
Register A4 will contain the pointer to the the parameter list 
passed to the call-by-reference routiie. Register XO will contain 
the nufflber of parameters for the call -bv-ref er ence routine* for 
example* 1 for MLPSRSIN* 2 for 'IL^SRZTO?.! The User Condition 
Register will be cleared of all arithfietic errors, 

3, Ungated routine MLP$ERRQR,PROC£SSQR Is called with all registers 
saved in the save area, 

4, MLP$£RROR,PROC£SSOR calls PHPSCAUSE^^OMOITfON with user condition 
MATH_LI3RARY_ERR0R and a pointer to the previous save area (the 
registers saved by the call-by-reference routine) as the condition 
descr i ptor , 

5, Upon return from PMP$CAUSE.CONDITION|, MLPSERROR. PROCESSOR is 
exited if the returned status Is nomal. Otherwise PMPSABQRT Is 
called with one of two statuses. Status itVtSTATUS Is used if 
there is no established condition ha?idler for* MATH_LIBRARY_ERROR, 
Otherwise the status returned from PM'$CAUSE_CONOITION is used, 

6, The call-by-reference routine immediately returns If it is 
returned to. 



Tha naatheaatlca I library error numbers and message terfiplates are listed 
in hppen6iK B» All error nurabers starting iifth 67 i«liich are currently 
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undefined are reserved for future expansion of the ^ath library* 

2*6.2 CAIL-SY-VALUE 

Under caH-by-va lue;> a trap interrupt wl 1 1 be generated in the attempt 
to evaluate tbe function with a bad argu^nsnt llst*^ Ho further support 
will be supplied* Note that the cal l-by-va!lje linkage Is designed for 
isaxiiBUin speed when the argument list Is within the don?ain of the 
f unct i on. 

The error 1 nf or roation regarding error number and error result is 
applicable only to the call by reference entry fsoint. The value In the 
XF Cor XE'^XF) register is undefined In the case of a trap interrupt 
occurring during execution of cal I -by-value. = 



2.7 RELIABILITY AMD PERFORMANCE 



It is desirable that computed results be accurate to the full number of 
bits available to the result. Certain argument reductions may make this 
prohibitively expensive^ e.g.* that for* DSIM# DCOS* OTAN where the 
argument exceeds 2**47. Double precision argu*nent reduction is done in 
some cases for single precision functions In order to preserve precision 
and previous library capabilities but can Influence performance. 

In questions of timing versus memory r equi r eients* differential 
proportional decreases In average execution time will be considered at 
least twice as important as the same differential proportional decreases 
in memory size. The disappearance of float i ng-oo Int instructions which 
round requires extra work at certain points of algorithms. Lack of 
rounding in the floating-point operations ii^akes exact duplication of 
results obtained with the C170 Math Library lupossible* in general. As 
a result* programs calling math routines which are ill-conditioned with 
respect to use of those routines will show differences in output. In 
other programs* any differences will be minor', 

2.8 MATHEMATICAL FUNCTION SPECIFICATIONS 



In the following table* the set CN> represents the union of the sets 
Call standard numbers!* C0>* €Z1>* CZ2}* C73>. CN alone will denote the 



list of all members of CN>« Tliis is done to sfuprify the notation for 

ynion. For example^ CN#x> will denote the union of CN> and CxJ.I 

TNe set {!> is the set of at I r epresentable integers. {Again* I alone 
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I* i 1 1 denote the list of all r epresentabl e Integers*! When the result Is 

defined as a single or double precision nunber* the set CI> is the set 
of all single or double numbers CNl such that the decimal representation 
has only zeros to the right of the decimal aolnt.f The symbol *• <- »» is 

used to Indicate »*is a meal foe r of* 

Ail references to "log" are natural lOQirlthms Cbase e)# unless 
otherwise indicated* 
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2*8.1 ABS 

Functions ABS 

Oascription! Absolute value of a single precision number. 

Entry points: call-by-ref erence ML^SPABS* ASS 

call-by-vaiue ?^t^$VABS 

Arguments? SI - a single precision number. 

Dofnain: SI <- Call single numbers! 

Results R - a single precision number. 

Ranges R <- Call non-negative sinf|le nuinbersl 

Error resultss no errors are generated by ^BS. 
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2.8,2 ACQS 

Functions ACQS 

OescriptionJ Inverse circular cosine of a slncile precision number* 

Entry polntss call-by-reference HL'^SRACOS* ACQS 

cal i-by-value HL5>$VAC0S 

Arguments: SI - a single precision nunber. 

DoiuainJ SI <- In s ;nS < !•> 

Results R - a single precision number'*! 

Ranges R <- tn $ < n < p i> 

Error re sultss 

Error Number Arguments Result 



670001 SI ' +/-INDEF +IMD 

670002 SI » +/-INF +Tn|D 

670003 3S15 > I. +I^iD 
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2.8.3 AIHAG 

Function 5 AIHAG 

Descriptions Imaginary part of a complex nu^nbar. 

Entry polntsJ ca ll-by-r ef er ence ML^^SRAIMAGf AIMAG 

cal l-by-value HLPSVAIHAG 

Arguroentss Zl - a complex number. 

Domain: Zl <- Call complex nuniber$> 

Results R - a single precision number. 

Ranges R <- Call single numbers} 

Error results^ no errors are generated by AIIAG 
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2,8.4 AINT 

Functions AINT 

Descriptions Integer part of a single precision number. 

(Truncation! 

Entry points? caH-by-ref er ence HIP$RAINT# AINT 

cali-by-value fiif»$VAINT 

Argument ss SI - a single precision number. 

Oomains SI <- CN> 

Results R - a single precision number. 

Ranges R <- CI> 

Error resultss 

Error Number Arguments Result 



670004 SI * +/-INDEF +TMO 

670005 SI « +/-INF 4-1^0 
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2.8.5 ALOG 

function 5 ALOG 

Description: Natural logarithm of a single precision number. 

Entry points: call-by-reference HLfSRALQG* ALOG 

call-by-value ^IL^SVALOG 

ArgumentsJ SI - a single precision number. 

Oojnain; Si <- Cn : n > 0.> 

Result! R - a single precision number. 

Ranges R <- in : inS < 4095*log(2l> 

Error results^ 

Error Number Arguments Result 



670006 SI « +/-INDEF 4-IMD 

670007 SI » +/-INF +1^0 

670008 SI « 0. ^-IMO 

670009 SI < 0. +I>ID 
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2.8#6 ALOGIO 

Functions ALOGIO 

Description; Comroon logarithro of a single orecislon number* 

Entry points s ca I l-by-ref erence HL»$RALQG10# ALOGIO 

cal l-by~vaiue NLPSVALOGIO 

Argufflentss $1 - a single precision number* 

Domain: SI <- Cn : n > 0*> 

Results R - a single precision number* 

Range: R <- Cn : JnJ < 4095*log{?)> 

Error results: 

Error Number Arguments Result 



670010 SI « +/-INOEF +IMD 

670011 SI = +/-INF +140 

670012 SI « 0* 4-INIO 

670013 SI < 0. +I4D 
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2.8.7 AMOD 

Function: AMOD 

Oescriptions Remainder of a single precision quotient. 

Entry points: call-by-reference ^LI>$RAMOO# AMOD 

call-by-value MLPSVAMOO 

Arguments: SI - a single precision number. 

32 - a single precision number. 

Domain: SI <- CN> 

and S2 <- Cn s n »/ 0.> 

and S1/S2 <- CN> 

Result: R - a single precision number. 

Range: R <- CN> 

Error results: 

Error Number Arguments Result 



670014 SI « +/-INDEF ♦IMO 

670015 S2 « +/-INDEF fl^iD 

670016 SI « +/-INF 4-IMO 

670017 S2 « +/-IHF flND 

670018 S2 = 0. ^IHO 



670019 S1/S2 = -t-Z-INF +IND 
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2.8.8 ANINT 

Function: ANINT 

DescriptionJ Nearest integer to a single precision number. 

Entry points: caH-by-ref erence Ml?*$RANINT» ANINT 

cal f-by-value MIPSVANINT 

Arguments: SI - a single precision nu'nber. 

Domain: SI <- CNl 

Result: R - a single precision number. 

Range: R <- Cl> 

Error results: 

Error Number Arguments Result 



670020 SI « +/-INDEF *In|0 

670021 SI * +/-INF +ISD 
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2.8.9 ASIN 

Function! ASIN 

Description: Inverse circular sine of a slr>gte precision nuinber. 

Entry points: ca I l-by-ref er ence MLPSRASIN* ASIN 

caM-by-value ?1Lf>$VASIN 

Arguments? SI - a single precision nu!flber". 

Oonialns SI <- Cn s \n\ < l.> 

Result: R - a single precision number. 

Range: R <- €n : InJ < pl/2> 

Error results: 

Error Number Arguments Result 



670022 SI » +/-INDEF +I^D 

670023 SI = <-/-INF ^1^0 

670024 JSIS > 1. +IND 
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2.8.10 ATAN 

Function: ATAN 

Oescriptlon: Inverse circular tangent of a sin<i»e precision number. 

Entry points: cal l-by-ref er ence MLPt^^ATAN* ATAN 

cat l-by-vafue ML^IVATAN 

Arguments: SI - a single precision number. 

Oomain: SI <- iH, -t-Z-INF} 

Result: R - a single precision number. 

Range: R <- Cn : JnJ < pi/2} 

Error results: 

Error Number Arguments Result 



670025 SI * +/-INDEF +T^0 
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2.8.11 ATAN2 

Function: AT AN 2 

Descriptions Inverse circular tangent of a single orecision quotient. 

Entry points: ca ll-by-refer ence HLi»$RATAN2f ATAN2 

cal l-by-value HIP$VATAN2 

Arguments: SI ~ a single precision nuiber. 

S2 - a single precision nunber. 

Oofsain: SI <- CN» +/-INF> 

and S2 <- CN* +/-INF> 

and (SlfS2) */ (O.fO.) 

and (S1^S2) «/ C+/INF,+/INF> 

Result: R - a single precision number. 

Range: R <- £n : -pi < n < pi > 



Error rasyitss 

Error Number Arguments Result 



670026 SI « +/-INDEF +IND 

670027 S2 » -I-/-INOEF +IND 

670028 SI « -I-/-INF and S2 = "t-Z-INF ^im 

670029 SI * 52 « 0. 4-INO 

670030 SI/S2 « +/~INF and S2 =/ D -UNO 
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2.8.12 ATANH 

Functions ATANH 

Description: Inverse hyperbotic tangent of a sincjfe precision number 

Entry polntss caM-by-ref er ence HIP$RATANH» ATANH 

call-by-vaiue MLJ'SVATANH 

Arguments? SI - a single precision nunber. 

Domain: SI <- Cn : JnJ < 1.} 

Result: R - a single precision number,; 

Ranges R <- -(;)sj> 



Error resultss 

Error Nunber Arguments Result 



67003X SI » +/-IND€F +IMD 

670032 SI = ^/-INF 4-1^0 

670033 rSlJ > !• ^IHD 
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2.8.13 CABS 

Function: CABS 

Descriptions Absolute value of a complex riumber. 

Entry points? call-by-reference HL!>$RCABSf CABS 

cat l-by-value ^L!»$VCA8S 

Arguments* Zl - a complex number. 

Domain: Zl <- C(nl,n2) : Cnl**2 ^ n?«^*2)**l/2 <- CN>> 

Result: R - a single precision number. 



4- 



Ranges R <- CN> 

Error results: 

Error Number Arguraents Result 



670034 21 » +/-INDEF (+1^0, -t-INO) 

670035 Zl * -f-Z-INF C + INO, ♦IHOJ 

670036 till = +INF C^INO* +IHO) 
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2*8.14 CCOS 

Functions CCOS 

Description; Circular cosine of a complajc nuiiber. 

Entry pointss call-by-reference HL^^SRCCOS? CCOS 

cal l-by-value MLPSVCCQS 

Arguments! Zl - a co»nplex number* 

Domain: ReiZl) <- Cn : JnS < 2**47> 



Rasult! R - a coBiplex number* 

Ranges R <- CCN,N)> 

Error result S5 

Error Nuwber Arguments Result 



670037 Zl » +/-IHOEF {+INO, +INO) 

670038 Zl « 4-/-INF C+INO, +INO> 

670039 JReCZm > 2**47 f^-I^«Df -i-INOI 

670040 Imill} > 4095*log(2) C+II^O, +INO) 

670041 Ifl3(Zir< -4095*log(2) (0.^ 0,) 
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2,8,15 CEXP 

Function: CEXP 

Description: Exponential function of a coiiPlex number. 

Entry points? call-by-reference ?1LP$RCEXP* CEXP 



cal l~by-value HL?$VCEXP 

Argymentss Zl ~ a conaplex rnymbsr* 
Dowain: ImCZl) <- Cn i InJ < 2**4?> 

ReCZl) <- Cn 5 n < 4G9§*logf?) ar^d 
n > -4095*logC2)> 
Result: R - a complex number* 
Ranges R <- C{Nf N)> 

Error results: 

grror Number Arguments Result 



670042 Zl » +/-INDEF (4.IMO, +IND) 

670043 Zl « ♦/-INF <+INO, ^-INO) 

670044 JIfuCZDJ > 2**47 C^INO, 4-INO) 

670045 TReCZDiV > 4095*logC2) C + IMO, +INO) 
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2.8.16 CLOG 



Functions C10€ 

Oeser i pt ions Natural logarithm of a complex nuifeer* 

entry points s caU-by-ref er ence NtPSI?CLOG# CLOS 

call-by-va«ue ?1LP$¥C10G 

Arguments: Zl - a cojiiplex number. 

OofflainJ Zl <- CCnlfnZJ s <nl**2 ♦ i^^^l)*^lf2 <- CN» 

Zl <- C(nl#nl) s (nl#n2) «/ CO.>0,l)> 

Results R ~ a complex number. 
Ranges ReCR) <- iuy 

IiaIR) <- Cn J -pi < n < pi> 

Error resultss 

Error Number Arguments Result 



670046 Zl ^ 4-/~IN0EF {+tNO, 4-INO) 

670047 Zl » +/-1NF C+IND, +IN9) 

670048 rZlJ » +INF C+IMO# +INO) 

670049 Zl « {O.fO.) f+TNOf +INO) 
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2.8.17 CONJG 
Functions 
Description! 
Entry points? 

Argunsents: 
Domal ni 



CONJS 

Conjugate of a coaiplex numbar* 

cal I -by-reference 
ca I l-by-va lue 

Zl - a cosnplex nymber. 

Zl -< Call complex numbefs> 



Hlf>SRCOHJGf C0NJ6 
HL?>$VCQNJG 



Results 



Ranges 



R - a complex number. 

R <- Call complex numbers! 



Error resultss no errors are generated by C0N4G< 
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2.8.18 COS 

2. 8 .IS COS 

Functiofis COS 

Description! Circular cosine of a single precisian n«nsber» 

Entry points? call-by-ref erence HL^^IRCOSf COS 

cal l-by~value HL?$fCOS 

Argussentsii SI - a single precision nunber. 

Domains SI <- Cn s SnJ < 2**47> 

Result! R - a single precision number* 

Range? R <- Cn J InJ < 1.} 

Error results? 

Error Number Argufflents Result 



670050 SI « ♦/-INDEF 4-IND 

670051 SI = -t-Z-INF +mD 
570052 SI > 2**47 flMO 
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Z.B.19 COSO 

Function: COSO 

Descriptions C i rcul ar cos Ine of a single precision nus^iber in degrees* 

Entry points? caH-by-ref er ence ^LPSRCOSDf COSO 

call-by-value HL^IVCOSO 

Argyroentss SI - a single precision number 

Domain: SI <- In i JnS < 2**47> 

Results R - a single precision number 

Ranges R <~ Cn s !nJ < !•> 

Error results: 

Error Number Arguments Result 



670247 SX « +/-INDEF +IMD 

670248 SI * +/-INF 4-IMO 

670249 rsil > 2**47 +In}0 
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2.8.20 COSH 

Functions COSH 

Descriptions Hyperbolic cosine of a single precision number. 

Entry points: ca M-by-ref er ence Hts>$RCOSHf COSH 

cal l-by-value HlP$VCOSH 

Arguraentss SI - a single precision nu^fiber. 

Domain: SI <- in J ?nj < 4095*log{?)> 

Result: R - a single precision number. 

Range: R <- £N> 

Error results: 

Error Number Arguments Result 



670053 SI « +/-INDEF +In|0 

670054 SI « +/-INF 4-In|D 

670055 JSI5 > 4095*log(2) 4-In|D 
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2.8.21 COTAN 

Functions COTAN 

Descriptions Circular cotangent of a single precision number. 

Entry points: cal i-by-r ef er ence MLPSRCOTAN 

cal l-by~value MLP$^COTAN 

Arguments? SI - a single precision nuinber. 

Domain: SI <- Cn s 0. < InJ < 2<'*47> 

Results R - a single precision nufuber. 

Ranges R <- CN> 

Error results: 

Error number Arguments Result 

670254 SI » 4-/~IND£F -HMD 

670255 SI « +/-INF +IND 

670256 SI >» 2**47 +IND 
67026 5 SI « 0. +IND 
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2.8.22 CSIN 

Function: CSIN 

Oescription! Circular sine of a complex r^uiber* 

Entry points: cat t-tey-ref erence HL^SRCSIH* CSIN 

call-by-value HtPSVCSIN 

Arguments? Zl - a cowplex nupber. 

Domain: ReCZl) <- Cn : Jnl < 2**4T> 

IwCZl) <- <:n s SnS < 4095*log(2l> 

Result? R - a complex number* 
Range: R <« C(N,N)> 

Error results: 

Error Number Arguments Result 



6T0056 Zl « ♦/-INOEF C+IND# +IND) 

670057 Zl * +/-INF (-UNO, ♦INO) 

670058 SReCZD? > 2**47 i+TNDf +INO) 

670059 JImCZDJ > 4095*log(2) l+IND, ♦INO) 
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2«8.23 CSQRT 

Function: CSQRT 

Descriptions Square root of a complex nunber. 

Entry points: ca H-by-ref erence M15>SRCSQRT» CSQRT 

cat I -by-value Nl?>$VCSQRT 

Arguments: Zl - a complex number • 

Domain Zl <- C(nl#n2l : C<nl**2 ^ ^^2**? )*tl. /2) + JnlJ <- CN>> 

Result: R - a complex number* 
Range: R <- C<nl#n2) : nl > 0«> 

Error results: 

Error Nuf^ber Arguments Result 



670060 21 = 4-/-INDEF f+IMD, ^INO) 

670061 Zl « ^-/-INF C + INO, +INO) 

670062 SZlJ+lnlS * ^INF t+IND, +INO) 
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2.8.24 0A8S 

Function: DABS 

Oescrlption! Absolute value of a double arecision number. 

Entry points: ca ll-by-ref erence 'IL^SRDABS* 0A8S 

cal l~by-value NLPSVOABS 

Arguments! Dl ~ a double precision nuiuber. 

Oofsains 01 <- Call double numbersT 

Results R - a double precision number. 

Range! R <- Call non-negative double-precision nu?!ibers> 

Error results: no errors are generated by DA8S 
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2,8,25 DACOS 

Functions DACOS 

OescriptJonJ Inverse circular cosine of a double precision nu???ber* 

Entry points: call-by-reference HLPSRDACOSf DACOS 

call-by-value HLPSVOACOS 

Argumentss 01 - a double precision nuibsr, 

Doffsain 01 <- Cn i tn* < 1«> 

Result: R - a double precision number'. 

Range: R <- Cn : < n < pi> 

Error results? 

Error Number Arguments Result 



670063 01 « +/-INOEF {+mD, +IND> 

670064 01 » +/-INF C^-IND, -UNO) 

670065 JOIJ > 1. (4.IND, ^INO) 
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2*8, 26 OASIN 

Functions DASIN 

OescriptionJ Inverse circuiar sine of a doubte precision nuiiber* 

Entry points: calf-by-reference ML^SROASINt OASIN 

cal i-by-vaiue l1Li>$VDASIN 

Arguments! Dl - a double precision number. 

Domain: 01 <- Cn : In? < l.> 

Result: R - a double precision number.! 

Range: R <- Cn : tnj < pi/2> 

Error results: 

Error Number Arguments Result 



670066 01 * ♦/-INOEF (+I^0# +INOI 

670067 01 « +/-INF (+INO, +INO) 

670068 SOU > 1. C+INO, +IND) 
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2«8«27 DATAN 

Function: DATAN 

Descriptions Inverse circular tangent of a double precision number* 

Entry polntss call-by-reference Ml!>SROATAN# OATAN 

cal l-by-value iiLPl;VOATAN 

Arguments? 01 - a double precision nufnber'. 

Domain: 01 <- CN, +/-INF> 

Results R - a double precision number. 

Range: R <- Cn : 5nJ < pi/2> 

Error results? 

Error Number Argufnents Result 



670069 01 = +/-INDEF +IMD 
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2.8.28 0ATAN2 

Function: DATAN2 

Descriptions Inverse circular tangent of a double precision quotient 

Entry points: caM-by-r ef er ence ^LPSR0ATAN2> 0ATAN2 

cat !-by-value f^LP$VDATAN2 

01 - a double precision nuiber. 

02 - a double precision number". 

01 <- iHf 4./-INF> 

02 <- iHf +/-INF> 
(01,02) »/ (0.*0.) 

R - a double precision number.^ 
R <- Cn : -pi < n < pl> 





Arguflients! 




Domal n: 


+ 






and 


•f 






and 


+ 






Resui t: 




Range: 


+ 






Error results: 




Error Number 


■♦- 






670070 




670071 




670072 




670073 



Arguments Result 



01 « +/-INDEF C^-INOf 4-IND) 

02 » 4./-IN0EF C+TNO, +IND) 
01 « 02 * +/-INF (4-IMO, +INO) 
01 » 02 » 0. (4-IM0, +INO) 
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2. 8.29 OCOS 

Functions DCOS 

Oescriptioni Circular cosine of a doutsia precision nuniber. 

Entry points: ca ll-by-ref erence HfiRDCOS* OCOS 

cal l-by-value Hl!>$VDCOS 

Arguiuentss 01 - a double precision nuuber^ 

DomainJ 01 <- in : JnJ < 2**47> 

Result: R - a double precision number'. 

Ranges R <- Cn J Jn! < l.> 

Error results: 

Error Number Arguments Result 



670074 01 » +/-INDEF {+INDf +IND) 

670075 01 « +/-INF (+INO, +IND) 

670076 JDIJ > 2**47 (+TMO, +INO) 
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2.8.30 OCOSH 

Function! OCOSH 

Descriptions Hyperbolic cosine of a double precision number. 

entry points: call-by-reference HL»$RDCOSH» OCOSH 

cai l-by-value ^lf>$VOCOSH 

Arguments! 01 - a double precision nuitiber. 

Oowaini 01 <- €n s JnJ < 4095*log{?n 

Result! R - a double precision number. 

Range! R <- CN> 

Error results! 

Error Number Arguments Result 



670077 01 » +/-INDEF (♦IND, +IND) 

670078 01 » +/-INF C+THO, +INO) 

670079 SOU > 4095*log{2l (+IMD, +IND) 
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2.8.31 ODIH 
Funct i on J 
Oescr i pt ions 
Entry points! 

Arguments J 



Domai n: 



and 
and 



Resul ts 
Range: 



00 IH 

Positive difference of two double precision numbers. 



cal l-by-ref erence 
ca I l-by-value 

01 - a double precision nuttber. 

02 - a double precision nunber. 

01 <- -CNl 

02 <- iny 

01 - 02 <- CN> 

R - a double precision number'. 
R <- Cn : n > 0.> 



ML»SROOIM» OOIM 
^15»$VD0IM 



Error resy j ts J 

Error Nufiber Arguments Result 



670080 01 = +/-INOEF C^IMD, +IHO) 

670081 D2 « i-Z-IMDeF C+IMD, +INOJ 

670082 01 « 4-/-INF f+INO, +IHO) 

670083 02 » +/-INF <+IMO, +IHOI 

670084 01 - 02 » -i-Z-INF l+IMO* +IN0J 
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2.8*32 DEXP 

Function: DEXP 

Description: Exponential function of a dauble precision number. 

Entry points: calf-by-ref er ence HlP$R0EXPf DEXP 

call-by-value MLPSVDEXP 

Arguments: 01 - a double precision nuitbar. 

Ooraain: Dl <- Cn : JnJ < 4095*log(2n 

Result: R - a double precision number*. 

Range: R <- CN> 

Error results: 



Error Number Argyments Result 



670085 Dl * ♦/-INDEF C+INDf -t-INDI 

670086 01 « +/-IHF (-i-INDf -t-INOI 

670087 1011 > 4095*log{2) C+INOf -*-IND) 

670088 !01l < -4095^log{2l {0,¥ 0*> 
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2.8,33 DIM 

Function: DIM 

Descriptions Positive difference of two sif^gle precision numbers. 

Entry points: call-by-reference ML»>$RDIM> DIM 

cal l-by-value MLPSVOIM 

Arguments: SI - a single precision nui»ber. 

S2 - a single precision number. 

Domain: SI <- CN> 

and S2 <- CN> 



and SI - S2 <- CN> 

Results R - a single precision number* 

Ranges R <- CN> 

Error r 8 su I ts J 

Error Number Arguments Result 



670089 SI « +/-INOEF +IMO 

670090 S2 « +/-INOEF +I?^D 

670091 SX = 4-/-INF +1^0 

670092 S2 « +/-INF +I^ID 

670093 SI - S2 « +/-INF +IMD 
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2.8.34 DINT 

Function! DINT 

Description: Integer (whole number) part of a double precision 

number . 
(Truncat Ion. ) 

Entry points? cal I -by-reference MLP$RDINT» DINT 

cal l-by-value ML!»$VDIHT 

ArgunientsJ Dl - a double precision nu^nber. 



ResultJ R - a double precision nurober. 

Ranges R <~ CI> 

Error resultss 

Error Nuinber Arguiaents Result 



6T0094 01 * +/-INDeF <+INO, 4-INO) 

670095 01 « +/-INF (4-INO, +INO) 
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2.8.35 OLOG 

Function: DL06 

Description: Natural logarithm of a double precision number. 

Entry points: call-by-reference MLf^SRDLQG, OLOG 

cal l-by-value ML?$VDLOS 

Arguments: 01 - a double precision nuiiber. 



Domain: 01 <- Cn s n > 0*> 

Result! R - a double precision number. 

Ranges R <- Cn : Inl < 4G95*logC^)> 

Error results? 

Error NuiBber Arguments Result 



670096 Dl « -i-Z-INOEF C^-IND, ^INO) 

570097 01 « +/-INF t^-IMD* +IND1 

670098 01 « 0. C + INO, -t-INO) 

670099 01 < 0, C+TNO, ^IMO) 



CONTROL DATA CORPORATION - ClMf^ANY PRIVATE - Revision E 

2-43 
C180 Common Modules Mathematical Library {Z^f^l) ERS 

85/08/23 

2*0 MATHEMATICAL FUNCTIONS AND ROUTINES 
2*8,36 DLOGIO 



2*8.36 DLOGIO 

Functions DLOGIO 

Descriptions Common logarithm of a double orecislon number* 

Entry pointss call-by-reference MLi^SROLOGlO* DLOGIO 

cai l-by-value MLP$¥DL0G10 



ArguBientss Dl - a double precision riunber* 

Oowair*: Dl <- In 5 n > 0*> 

Results R - a double precision number. 

Ranges R <- Cn : JnJ < 4095*logl^l> 

Error results^ 

Error Hu^ber Arguments Result 



670100 01 * ^-/-INDEF (-UNO* -UNO) 

670101 01 « +/-INF C+IMD, +IND) 

670102 Dl « 0* (4.IN0, +IND) 

670103 Dl < 0. C+IMO, -t-IHO) 



COHTROt DATA CORPORATION - CaiPA?^r PRIVATE - Revision E 

2-4A 
C180 Cofflfnon Modules Mathematical Library CCMML) ERS 

85/08/23 

2.0 MATHEMATICAL FUNCTIONS AND ROUTINES 
2.8.37 DMOD 



2«8.37 DMOD 

FunctionJ DMOD 

Descriptions Remainder of a double precision quotient. 



cal 1 -by-reference Mt^$ROr^OO» DM00 

caU-by-valye HLPIVOHQO 

01 - a double precision nuiber. 

02 - a double precision number'* 

01 <- £N> 

02 <- Cn J n =/ 0.> 
01 / 02 <- CN> 

R - a double precision number. ^ 

R <- iuy 



Error results? 

Error Number Arguments Result 





Entry point 


:s 




Argument ss 






OofJial m 




■¥ 


and 




+ 


and 




+ 


Result? 
R anges 





670104 Dl ^ +/-INOEF C+I^^D> -fINO) 

670105 02 « +/-INOEF C+INO, +INO) 

670106 01 « +/-INF {4-TNO, -UNO) 

670107 02 » +/-INF (+IMO, ^INO) 

670108 02 « 0. {+tNO# -UNO) 

670109 01 / 02 = +/-IHF (+1140, +INO) 
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2.8.38 DNINT 



Funct i on : 
Description? 
Entry points: 

Arguments t 
Dofiiai n J 



DNINT 

Nearest whole number to a cloufole precis ion number* 



ca I l-by-raference 
ca I !-by-va lue 

01 ~ a double precision number. 

Di <- iny 



Ht^SRONINT, DNINT 
MtPSVDNINT 



Result: 



Range: 



R ~ a double precision number. 
R <- CI> 



Error results: 
Error Number 



Arguments 



Resu 1 1 



670110 
670111 



01 « 4-/-IN0EF 
Dl « +/-INF 



(^•I^40, +INO) 
{+IMO, 4.IND) 
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2.8,39 OPRQO 

Functions OPROO 

Description: Prodyct of t*#o double precision nuisbers* 

Entry pointsi call-by-reference HL!^$ROPROO» OPRQO 

Gall-by-value HLPSVDPROD 

Arguments: 01 - a double precision nuisbsr.t 

02-3 double precision nuuber. 

Domain: Dl <- CN> 

and 02 <- CN> 

and 01*02 <- CN> 

Result: R - a double precision nunibar* 

Range: R <- IHl 

Error results: 

Error Number Arguments Result 



670112 01 « -t-Z-INOEF f+ir^O, +IND) 

670113 02 « +/-INOEF t+IMD* +INO) 
67011^ 01 « +/-INF {+IHO> +INO) 

670115 02 == +/-INF (+INO, +INO) 

670116 01 * 02 » +/-IHF (4-IND, -UNO) 
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2«8.40 OSIGN 

Functions OSIGN 

OescriptlonJ Double precision transfer of sign* 

Entry points: caH-by-ref erence NLPSRDSIGH* OSIGN 

call-by-value HLPSVDSIGN 

Arguments: 01 - a double precision nuibsr. 

02 - a double precision nuT!ber» 

Domain: Dl <- Call double nu!Bbers> 

and 02 <- tall double nuiiibers> 

Result: R - a double precision nufuber*. 

Range: R <- Call double numbers! 

Error results: no errors are generated by DSIGM 
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2.8.41 OSIN 

Functions OSIN 

Descriptions Circular sine of a double 5r*ecisfon number* 

Entry points s call-by-ref erence HL?$ROSIN# DSIN 

catl-by-value HL?>$VOSIN 

Argumentss Dl - a double precision number* 

Oofnain: 01 <- Cn s JnJ < 2**47> 

Results R - a double precision number* 

Ranges R <- Cn s «n! < !•> 

Error resultss 

Error Number ArguJ^ents Result 



670117 01 « +/-INDeF (+INO, +fNO) 

670118 01 = +/-INF (+IMOf +IND> 

670119 J015 > 2**47 C+INO, +IND) 
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2.8.42 OSINH 

Function: OSINH 

Oescriptlon? Hyperbolic sine of a double precision number* 

Entry points: ca I l-by-r af er ence HLPSROSINHf OSINH 

cal l-by-value MLPSVDSINH 

Argyraents: 01 - a double precision number. 

OoiBain: 01 <- Cn : In J < 4095*logC^)> 

Result: R - a double precision number* 

Range: R <- CN> 

Error results? 

Error Number Arguments Result 



670120 01 « ♦/-INDEF (+TMD, +INO) 

670121 01 « +/-INF ?+INOf +IND) 

670122 JOl? > 4095*log(2) C+IND, 4-INO) 
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2.8.43 OSQRT 

Function; DSQRT 

Descriptions Square root of a double precision number. 

Entry points: call-by-ref erence NLR$RDSQRTf OSQRT 

cali-by-value HLPSVOSQRT 

Arguments* 01 - a double precision nuiiber. 

DomainJ 01 <- €n s n > 0.1 

Result! R - a double precision number* 

Range: R <- CN> 

Error results: 

Error Number Arguments Result 



670123 01 « +/-INOEF f+IMO, +INO) 

670124 01 « +/-INF C+INO, +IND) 

670125 01 < 0. {4IN0> +INO) 
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2.8.44 OTAN 
Funct Ion : 
Oescr ipt Ion: 
Entry points: 

Arguments: 
Domain: 



DTAN 

Circular tangent of a doubts oreclsion nusBber. 



c a 1 1 -b y-r e f ar e n c e 
ca I l~by-va lue 

01 - a double precision number. 

<- Cn : JnJ < 2*t47J 



MLf>$ROTAN# DTAN 
HLPSVOTAN 



Results 



Range: 



R - a double precision number. 
R <- CN> 



Error results: 
Error Number 



670126 
670127 
670128 



Arguments 



Dl « +/-INDEF 
01 « +/-INF 
JDIJ > 2**47 



Result 



C+IMO, +INO) 
(+IMD, -i-INO) 
{+IND, ^IND) 
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2.8.45 DTANH 

Function: OTANH 

Description? Hyperbolic tangent of a double precision nu!Bber* 

Entry polntsJ call-by-reference HL^fRDTANH* OTANH 

cal l-by-value HLPSVOTANH 

ArguBientss Dl - a double precision number « 

OomainJ 01 <- CH> +/-INF> 

Result: R - a double precision number*. 
Range: R <- Cn : SnI < l.> 

Error results: 

Error Number Arguments Result 



670129 01 * ^/-INOEF (+IMD* +INO) 
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2.8*46 DTOO 

Function: OTOD 

OescriptionJ Raise a double precision base to a double precision 

oos*er. 

Entry points: ca i l-by-ref erence HLPSROTOO* OTQO 

cal l-by-value ^1?>$VDT0D 

Arguments: Dl - a double precision nynber, 

02 - a double precision nuffiber* 

Domain: 01 <- Cn : n > 0.> 

and 02 <- CN> 

and if 01 * Of 02 > 

and 01**02 <- £N> 

Result: R ^ a double precision nuii?ber. 

Range: R <- CN> 

Error results: 

Error Number Arguments Result 



670130 01 = ♦/-INOEF (+tNO> +INO) 

670131 02 « */-INOEF (+IND, 4-INO) 

670132 01 « +/-INF (♦IMOf -i-INOI 

670133 02 « +/-INF (+INO, <-INO) 

670134 01 « 0. and 02 < 0. C+INO# -UNO) 

670135 01 < 0. " {+TMDf fINO) 

670136 01**02 a +/-INF (+INO, +INO) 
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2.8.47 DTOI 




Funct i on 5 




Oescr i pt ion: 




Entry points: 




Argumentss 




Oofflain J 


4- 






and 


+ 






and 




Results 




Range: 



DTOI 

Raise a double precision base to an integer power. 

caM-by-reference MLi'tRDTOI* DTOI 

cal l-by~value MLPSVDTQI 

01 - a double precision number. 
12 - an integer. 

Dl <- CN> 

12 <- Cal I integers} 

If Dl » 0, 12 > 

R - a double precision number. 

R <- CN> 



Error results: 

Error Number Arguwents Result 



670137 Dl * ♦/-INDEF (+INO, -UNO) 

670138 Dl = ^-/-INF (+IMD> ^-IND) 

670139 Dl = 0. and 12 < (-UNO, -UNO) 

670140 01**12 « +/-INF~ C+IMO, +INO) 
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2.8.48 OTOX 
Function: DTOX 

Description: Raise a double precision base to a single precision 

power . 

call-by-reference nL<>SRDTOX> OTOX 

call-by-value ^LPSVDTOX 

01 - a double precision nuiiber. 
$2 - a single precision nu-nber'. 

01 <- Cn : n > 0.) 

02 <- iny 

if 01 = 0, S2 > 0. 

R - a double precision number. 

R <- CN> 





Entry points: 




Arguments: 




Oofflain: 


+ 






and 


+ 






and 




Result: 




Ranges 


■»■ 






Error results: 




Error Number 


+ 






670141 




670142 




670143 



Arguments Result 



01 = +/-INDEF C+IND, -UNO) 

S2 * ^/-INDEF t+IHD, -i-INO) 

01 = "I-/-INF (+tNO, +IND) 



670144 S2 = +/-INF C+INOf +INO) 

670145 Dl = arid S? < 0* i^lHDf +INO) 

670146 01 < 0, " (-UNO* +INDI 

670147 D1**S2 « +/~INF (^■I^ID* 4-INO) 
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2«8,49 DTOZ 

Function: DTOZ 

Description! Raise a double precision base to a complex power. 

Entry points: call-by-reference MLPSRDTOZt DTOZ 

cal l-by-vaiue MLPSVDTOZ 

Arguments: 01 - a double precision nufJiber. 

Z2 - a complex number. 

Domain: Dl <- CN> 

and Z2 <- €{NfN)> 

and if 01 = 0., Z2 <- C<nl,n2ri nl > 5.> n2 « 0.> 

Result: R - a complex number* 

Range: R <- C(N>NJ> 

Error results: 



Error Number 



670148 
670149 
670150 
670151 
670152 



670153 
670154 



and 



i 


S^rguients 


01 


= 4^/^ 


INOeF 


Z2 


» +/- 


INDEF 


01 


« +/- 


INF 


12 


* 4^/* 


INF 


Dl 


« 0* 




R6fZ2J < 


0« or 


01 


< 0«' 




D1**Z2 * 


+/-INF 



Im<Z2) 



/ 



Res«1 t 



C+IMO» -i-IND) 

(>fNO# ♦INO) 

f^INjO, +IND) 

C+IMO* +INO) 

I4IM0, +INO) 
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2.8.50 ERF 
Funct i ons 
Descr ipt ion: 
Entry points: 

Arguments: 
Doiiiai n: 



ERF 



Error function of a single oreclslon number. 



cal l-by~ref erence 
cai l-by-va lue 

SI - a single precision nuTiber 

SI <- CN> 



^LPSRERF, ERF 
MLP$VERF 



Result: 
Range: 



R - a single precision number*. 
R <- Cn s -1. < n < l.> 



Error results: 
Error Number 



Arguments 



Resu 1 1 



670155 SI « ^./-iNoeF ^im 
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2«8,51 ERFC 

Function? ERFC 

Descriptions Error function complement of a single precision number. 

Entry points^ call-by-reference HL5>$RERFC^ ERFC 

call -by-value MLPSVERFC 

Arguments: SI - a single precision nunber. 

Oofflaini SI <- €n s n < 25.923> 

Result: R - a single precision number'. 
Ranges R <- Cn s 0. < n < 2.> 

Error results: 



Error Number Arguments Result 



+ 



670156 SX ' ^-/-INOeF *IHQ 

670184 SI > 25.923 0. 
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2.8.52 EX? 

Function: EXP 

Description: Exponential function of a single precision number. 

Entry points: call-by-reference ML?>SREXP# EXP 

cal 1-by-value MLPfVEXP 

Arguments: SI - a single precision nuTiber . 

Domain: SI <- Cn : JnS < 4095*log(2)> 

Result: R - a single precision number. 

Range: R <- CN> 



Error results: 

Error Nyinber Argyments Result 



670157 SI * +/-INDEF +IND 

670158 SI » +/-INF +fMO 

670159 SI > 4G95*log(2) ^mo 

670160 SI < -4095*logC2) 0. 



CONTROL DATA CORPORATION - CG^PAMf PRIVATE - Revision E 

2-60 
C180 Common Modules Mathematical Library (:?iML) ERS 

85/08/23 

2.0 HATHEIiATICAL FUNCTIONS AND ROUTINES 
2.8,53 EXT8 



2.8.53 EXTB 



Functions EXTB 

Description: EXTB (a> i 1* i 2) - Extracts bits fr'om argument a# as in- 

dicated by II and i2« Argu^fieTt II indicates the first 
bit to be extracted* numbering from bit zero on the 
left. Argument i2 indicates the number of bits to be 
ex tr acted* 

Entry points: cal I -by-reference MLP$REXT8 

cal l-by-vaiue «LP$VEXTB 



hrgumentst The paraipeter*a Is any data type except character or 

bit. For a double precision or cofuplexarguflient a* 
the argument used is REiM(A)*' II and 12 are integers^ 

Doisains I1H2 <- CI1*I2S II * \Z <^ 64> 

a <- CREALS> OR a <- CDOlfSLE PRECISION NUI1BERS> OR 
a <- CINTEGERS> OR a <- C€0*1PLEX NUH8ERS> 

Results R - a FORTRAN type BOOLHAN yitue C64-blt *#ordJ. 

Range: R <- C BOOLEAN} 

Error resul tss 

Error number Arguments Result 

670257 II < +INO 

670258 12 < +IND 

670259 11 >» 64 +INO 

670260 il + 12 > 64 ^IHD 
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2.8.54 lABS 

Functions IA8S 

Description: Absolute value of an integer". 

Entry points: call-by-reference ^L»$RIABS# lABS 

cal l-by-value ^L!>$\fIABS 

Arguments: II - an integer. 

Domain: II <- Call integers} 

Result! R - an integer. 



Raoge: R <- CI : I > 0> 

Stror resultss no errors are generated by IA8S 
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2.8.55 IDIM 
function : 
Oescr i pt ions 
Entry points 

Arguments J 

Ooroal n: 



lOIM 

Positive difference of two Integers. 



ML?$RIDIf1# lOIM 
HlP$VIOIM 



cal l-by-ref er ence 
ca I l~by-va lue 

11 - an Integer. 

12 - an Integer. 



(II* 12) <- C(ll* 12) 5 11 - 12 < 2**63> 



Resul t J 



Range? 



R - an Integar* 
R <- C i s t > 0> 



Error resultsJ 
Error Hufliber 



Arguments 



Resul t 



670161 



II - 12 > 2**63 
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2.8.56 lONINT 
Funct I on : 
Descr i pt ion; 
Entry points: 

Arguments? 



IDNINT 

Nearest whole nuJiiber to a dauble oreclsion number. 



cal I -by-reference 
cal l-by-va lue 

01 - a double precision number. 



^li>$RIDNINT> IDNINT 
MLP$VIDNINT 



OojnainJ 01 <- €N> 

Results R - an integer* 

Range: R <- CI> 

Error resuitss 

Error Ntifiber Arguments Result 



670162 01 = ♦/-INOEF D 

670163 Dl « +/-INF 
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2.8.57 INS8 



Function^ INSB 

Description: INSB( a> i 1* i 2^ b) - Inserts bits from argument a 

(rightmost i2 bits) into copy of b (beginning viith 



Entry pointss 
Argu?aentsi 



Oomai m 

Resul ts 

Ranges 

Error r esul ts? 

Error number 

670261 
670262 
670263 
670264 



bit position ilf length » 1^ bJtsI* 

call-tey-reference HIPSRINSB 

can-fey-value HLP$VINS8 

The parameters a*b are any data type except character 
or bit. For double precision or* complex arguments 
a^bj the argufnents used are REALCal and REALCbJ 
respectively* 11 and 12 are integers. 

ii#l2 <- Cilfi2s II + 12 <« 54> 

a,b <- CREALS> OR a# b <- COfl'JBLE PRECISION NUHBERS} OR 
a#b <- CINTEGERSl OR a»b <- CCafiPiEX NUHBERS} 

R - a FORTRAN type BOOLEAN value (64~bit word). 

R <~ €BOOLEAN> 



Arguments 

il < 

i2 < 

II >« 64 

11 "I- 12 > 64 



Resui t 

+ IND 
+ INO 
+ IND 
♦ INO 
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2.8.58 ISIGN 
FunctI on J 
Oescr I pt ion: 
Entry points: 



ISIGN 

Integer transfer of sign. 

cal I -by-reference 
cal l-by-va lue 



MIPSRISIGN, ISIGN 
MLPSVISIGN 



Arguments: 



II - an integer 



12 - an integer* 
Oomain: II <- Call Integers! 

and IZ <- Cal I }ntegers> 

Result: R - an integer* 
RangeJ R <- CaM integers! 

Error results: no errors are generated by ISISM 



CONTROL DATA CORPORATION - COIPA^Y PRIVATE - Revision € 

2-66 
C180 Common Modules Mathematical Library (CMMt) ERS 

85/08/23 

2.0 MATHEMATICAL FUNCTIONS AND ROUTINES 
2«8«59 ITOD 

2.8.59 ITQD 

Function: ITOD 

Description: Raise an integer base to a 49jbl8 precision power. 

Entry points: call-by-r ef erence MLPSRITGOf ITOD 

cali-by-vaiue MLi»$VITOD 





Arguments? 




Oofflai US 


■I- 






and 


•I- 






and 




Resyf ts 




Ranges 



II - an Integer. 

02 ~ a doubt e precision number'* 

II <- Ci s I > 0> 

D2 <- CNl 

If II * 0, 02 > 0. 

R - a double precision nuinber. 



Error results! 
Error Number 



Arguments 



Restil t 



670164 
670165 
6 70166 

670167 
670168 



02 = ^/-IHOEF 

02 * +/-INF 

II « s^nti 02 < 



II < 
11**02 



a +/-INf 



C-t-INID^ +INO) 

<+rND, ♦INO) 

C+mO* +IHD> 

t+I^IO, +IHO) 
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2.8.60 ITOI 
Funct i on3 



ITOI 



Oescri >t ion: 
Entry polntst 

Arguments: 



Raise an Integer base to an Integer power* 



Domain! 



and 

and 
and 



Resul tJ 
Ranges 



cal I -by-reference 
cal l-by~va lye 

11 - an integer. 

12 - an integer. 

11 <- Cal I I ntegersl 

12 <- Cal I integers! 

if II = 0» 12 > 
ni**I2J < 2*'*=63 

R - an integer* 

R <- Call integers} 



HL?$RITOI» ITQI 
ML?>$¥ITOI 



Error results: 
Error Number 

670169 
670170 



Arguments 



ni**I25 > 2**63 



II « and 12 < 



Resul t 
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2.8*61 ITOX 
Funct I ofis 
Oescr i ptioni 
Entry points: 

hr gumentst 



Ooaiain: 






and 




and 


Results 




Range: 





ITOX 

Raise an integer base to a sinqle precision power 



ca I l-by-ref erence 
ca I l-by-va iue 

II - an integer. 

SZ - a single precision nuibar', 

II <- Ci : i > 0> 

S2 <- CN> 

if II = 0, S2 > 0. 

R ~ a single precision number. 

R <- CN> 



l*1LPSRITQX# ITOX 
Hl^fVITOX 



Error results? 
Error Number 



Arguments 



Resy I t 



670171 
670172 
670173 

670174 
670175 



S2 « +/-INOEF 

S2 « +/~INf 

II = and S2 < 0. 

II < 

I1**S2 « +/-INF 



+ lNiO 

+ I?^0 
+ IND 

+ IMO 
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2,8.62 ITOZ 
Funct I on s 
Descr Ipt ions 
Entry points! 

Argypentss 



OofBal m 






and 




and 


Results 




Ranges 




Error results? 


Error H 


lumber 


670176 




670177 




670178 






and 


670179 




670180 





ITOZ 

Raise an Integer base to a complex power* 



ni^tniTQlp ITOZ 
MLP$\fITOZ 



cal l-by-ref er ence 
cal l-by^value 

II - an integer. 

Z2 - a complex number 



II <^ €n 5 n > 0> 

Z2 <- C{H,Nr> 

If II « Of Z2 <- C{nl,n2) ? nl > 0.% n2 = 0,> 

R - a cofRplex number* 
R <- C(N,N)> 



Arguments 



Z2 « +/-INDEF 

Z2 * +/-IHF 

II « 

Re(Z2) < 0. or Im(Z2) 



^/ 0. 



I1**Z2 
II < 



« +/*INF 



Resut t 



{+INOf +IH0) 

{+INOf +IND) 

(♦INO, ^-IHO) 

{+IND, +INOI 

(+INO, +IND) 
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2.8.63 nm 

Functions MOO 

DescriptlonJ Refflainder of an integer quotient. 

Entry points: cal l-by-ref erence MLI*$l?MQO^ MOD 

call-by-value MLPIVMOD 

Argufflentss II - an integer. 

12 - an integer. 

Domains II <- Cat I integers> 

and 12 <- C i ? i =/ 0> 

Result! R - ^n integer. 

Ranges R <- Cal I I ntegers> 

Error results? 

Error Number arguments Result 



670181 12 = 
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2,8.64 HINT 

Functions NINT 

Descriptions Nearest whole number to a single precision number* 

Entry points: call-by-reference ML5>SRNINT^ NINT 

cal l-by-value HLP$VNINT 

Arguflientss SI - a single precision nuitber* 

Oojnains SI <- CN> 

Results R - an integer. 

Ranges R <~ CI> 

Error resultss 

Error Nuiuber Arguments Result 



670182 SI » ^-/-INOEF 

670183 SI « +/-INF 
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2.8.65 RANF 

Functions RANF 

Oescriptions Random nurBber generator Csl'tgls precision). 

Entry points: call-by-reference ^LCSRRANFf RANF 

cal l-by-value HLPSVRANF 

Arguments: there is no argun^ent to RA'^F,? 

OoiRaln: not applicable. 

Result: R - a single precision number. 

Range: R <- Cn : 0. < n < 1.1 

Error results: no errors are generated by RAMF 

Comaients: RANF is Intended to return the safne values as the RANF 

Inspl eiaented on the 170 machines as long as the (default) 
Initial value provided by the two libraries Is used by 
the caller. The values of the random number seed and 
multiplier used In the ^ath Library random number 
generation routines* RANF* RA^ISET and RANSET# are made 
available to host languages In RAMDATA* a data-only 
module In the Math Library. The values contained In 
this modul e are: 

Value Oeffnitlon 

. roIvS initial _seed default initial seed 

. ml v$r andom.seed current random seed 

. ml v$r andom.mul t ip I i er randon multiplier 

The initial value of both mlvS i nl t I al .seed and 
ml v$random_seed is 40002BC63CFE165n < 16) . The Initial 
value of mlvSrandoffl^mult iPf'ler Is 40302875A2E78175( 16) . 
The algorithm does not change the values of 
ml v$i n i t i a l.seed or ml vSr'aidom.myi I t i pi i er # and no 
user-callable routines are provided to change them. 



CONTROL DATA CORPORATIOM - COMPANY PRIVATE - Revision E 

2-73 
C180 Common Modules Hatheisat i cal library tCHHil E^S 

85/08/23 

2,0 HATHEHATICAl FUNCTIONS AND ROUTINES 
2,8.66 RANGET 

2.8,66 RANGET 

Procedures RANGET 

Description; Get the random nuiaber seed Ct single oreclsion number)* 

Entry points s cat l-by-ref erence RAMGET 

There is no cal l-by-value entry for RANGET* 

Arguments? R - a single precision number' 

(the argument receives the result) 

Oomain: not applicable 

Result: R - the argument* 

Range? to be supplied* 

Error results; no errors are generated by ^^^GET 
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2«8.67 RANSET 

Routines RANSET 

OescriptionJ Set the random number seed (a sifigia precision number). 

Entry points: ca 1 1 -by-refer en ce RA^ISET 

There is no calf-by-value entry ?or RANSET. 

ArgumentsJ SI - a single precision nuiber. 

Domains SI <- Cn s 0. < n < l.> 

Results no t appl icabi e. 

Ranges not applicable 

Error resultss no errors are generated by ^^^SET. 
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2.8,68 SIGN 




Funct ion s 




Descr ipt ions 




Entry points J 




Arguments: 




DofBai n« 


+ 






and 


4 






Results 




Ranges 



SIGN 

Single precision transfer of si gn. 

call-by-reference HL^SS?SIGN, SIGN 

cal l-by-value MLf>$VSIGN 

51 - a single precision nuir^bsr*. 

52 - a single precision nuf^ber. 

51 <- tall single numbers! 

52 <- Call single numbers! 

R - a single precision number. 
R <- Cn s n > 0.> 



Error results* no errors are generated by SIGN 
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2.8.69 SIN 

Function: SIN 

Descriptions Circular sine of a single areclslon number. 

Entry points? caH-by-r ef er ence i1l?$RSIN> SIN 

cal l-by-¥alue ML'^SVSIN 

Arguwents! SI - a single precision number. 

Domain: Si <- Cn : tn\ < 2**47> 

Result: R - a single precision number. 

Range: R <- {n : JnJ < l.> 

Error resul ts : 

Error Number ArguiRents Result 



670185 SI « 4-/-IN0EF +T^D 

670186 SI = +/-INF +nO 

670187 !Si: > 2**47 +IMD 
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2«8.70 SIND 

Function: SINO 

DescriptionJ Circular sine of a single precision nufiiber in degrees. 

Entry points: caH-by-refer ence HL^$RSIND# SIND 

cal l~by-value HL^^VSINO 

Arguments: SI ~ a single precision nunber» 

Domain: SI <- Cn : in! < 2**47> 

Result: R -» a single precision number* 
Range: R <- Cn : JnJ < l.> 

Error results: 

Error Number Arguments Result 



670244 SI « +/-INDEF ^l^D 

670245 SI « +/-INF +1^0 

670246 JSl! > 2**47 *im 
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2.8*71 SINH 
Funct i ons 
Oescr I pt ion5 
Entry points: 

Arguwentss 
Oowain: 



SINH 

Hyperbolic sine of a single »r eel s i on number . 



cal I --by-refer ence 
ca J l-by-vai ue 

SI - a single precision nun be r. 

SI <- Cn : JnJ < 4095*logt2)> 



HLP$RSINH, SINH 
MLPtVSINH 



Result: 



Range: 



R - a single precision number, 
R <- CN> 



Error results: 
Error Number 



ArgufBents 



Resu 1 1 



670183 
670189 
670190 



SI « +/-INOEF 

SI = ^-/-INF 

JSl! > 4095*log(2) 
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2»8*72 SORT 

Functions SORT 

Descriptions Square root of a single precision nyi?nber« 

Entry pointss call-by-r ef er ence NLf>$RSQRT> SORT 

cal l-foy-vaiue «L?>$VSQRT 

Arguments: SI - a single precision nuT»ber« 

Domain: SI <- Cn : n > 0.> 

Results R - a single precision number. 
Range! R <- in s n > 0#> 

Error r esu Its: 

Error Number Arguments Result 



670191 SI » +/~INOEF +I'^f) 

670192 SI * +/-IHF >IMO 

670193 SI < 0. +INJD 
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2.8*73 TAN 
Funct I on J 
Descriptions 
Entry points? 

Arguments: 
Oomai n: 



TAN 

C i rcul ar t angent of a single precision number* 



cal l-by-ref erence 
cal l~by-va lue 

SI - a single precision nuifber*. 

SI <- Cn s In? < 2**47> 



Ht^lRTAN, TAN 
MLP>$VTAN 



Result: 



Range: 



R - a single precision number** 
R <- £N> 



Error results: 

Error Number 



Arguments 



Resul t 



670194 
670195 
670196 



SI « +/-INDEF 
SI = +/-INF 
JSIS > 2**47 



1-IMD 
*INO 



CONTROL DATA CORPORATION - Cii^^h'ir Pkl^AJE - Revision E 

2-81 
C180 Common Modules Mathematical library CCM^Itl I^RS 

85/08/23 

2.0 HATHEHATICAL FUNCTIONS AND ROUTINES 
2. 8,74 TAND 

2,8,74 TAND 

Function: TAND 

Descriptions Circular tangent of a single oreclslon number In 

degr ees« 

Entry points? call-by-reference ML!*tRTANO> TAND 

cal I -by-value !iLP$VTANO 

Arguments: SI - a single precision nutnber*. 

Domain: SI <- Cn s Jn*. < 2**47 and 

n «/ 90*m where n <- set of odd integers} 

Result: R - a single precision number. 
Range: R <- iHJ 

Error results: 

Error Number Arguments Result 



670250 SI * -i-Z-INOEF +TMO 

670251 SI = -^/-INF +In<D 



670252 
670253 



ISIJ > 2**47 

SI is an odd myltiple of 90 



+ 1^10 
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2.8.75 TANH 
Function s 
Oescr I pt ion? 
Entry points: 

Arguments J 
Dotpain: 



TANH 

Hyperbofic tangent of a single precision nuiaber. 



ca i I -by-reference 
ca I l-by-va lue 

SI - a single precision number. 

SI <- {.Hf +/-INF> 



HIP$RTANH» TANH 
MtPSVTANH 



Resui ts 
Ranges 



R - a single precision number 
R <- Cn : JnJ < l.> 



Error results^ 

Error Number Arguments 



670197 



SI « +/-INOEF 



Resu f t 



+mo 
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2.8.76 XTOD 

Function: XTOD 

Descriptions Raise a single precision base to a double precision 

power • 

Entry points: call-by-r ef er ence HLPSRXTOOj XTOD 

call-by-value ^L5>$VXTQD 

Arguments! SI - a single precision nuuber. 

02 - a double precision nu!!?ber. 

Domain: SI <- Cn : n > 0.> 

and 02 <- CNl 

and if SI « 0.> 02 > 0. 

Result: R - a double precision number. 

Range: R <- CN> 



Error resultss 

Error Number Argui^ents Result 



670198 SI « +/-INDEF t+INO, +INDI 

670199 02 « -I-/-INOEF C^-INO* +IHD) 

670200 SI « -t-Z-INF C+INDf +INO) 

670201 02 » ^/-INF C+IND, +INDJ 

670202 SI » 0. and 02 < 0. C+IND# -UNO) 

670203 SI < 0» "* (+IMD, +IND) 

670204 Sl**02 * +/-INF C+!MD# +INDI 
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2.8.77 XTOI 




Funct i on : 




Oescr iption: 




Entry points: 




Arguments! 




Oomai ns 


i- 






and 


-¥ 






and 




Resul t: 



XTOI 

Raise a single precision bass to an integer power. 

call-by-reference MLPSRXT0I# XTOI 

cal l-by-value HLPSVXTOI 

SI - a single precision nuiiber*. 
12 - an integer. 

SI <- €N} 

12 <- fal I integers} 

If SI = 0» 12 > 

R - a single precision number'. 



Range: R <« CH> 

Err or re su I ts5 

Error Number Arguipents Result 



670205 SI « ^-/-INDEF +TND 

670206 SI « ^-/-INF +mO 

670207 SI « and 12 < 4.I^|D 

670208 S1**I2 * +/-INF *IMD 
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2.8.78 XTOX 

Function: XTOX 

Oescrlption: Raise a single precision base to a single precision 

power. 

Entry points: call-by-ref er ence mlp$RXTOX, XTOX 

call-by-value MLPSVXTOX 

Arguflients: SI - a single precision nunbar. 

S2 - a single precision nunber. 

Domains SI <- In i n > 0.> 



and S2 <~ CN> 

^n4 If SI « 0.# S2 > 0« 

and S1**S2 <- CN> 



Result: R ~ a single precision number • 

Range? R <- Cn s n > 0,> 

Error results; 

Error Number Arguments Result 



670209 SI « +/-'INOEF 4-I^D 

670210 S2 « +/-INOEF +IMD 

670211 SI « -I-/-INF *im 

670212 S2 « +/-INF ^IMO 

670213 SI » 0* and S2 < 0, ^IHD 

670214 SI < 0, " -M^D 

670215 S1**S2 » +INF +In|0 
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2.8«79 XTOZ 

Function: XTOZ 

Description: Raise a single precision base to a complex power* 

Entry points: call-by-reference MLPSRXTOZ* XTOZ 

cal l-by-yaiue '^l'»$VXTOZ 

Arguments: SI - a single precision nu^nber. 



Z2 ~ a complex number • 

SI <- CN> 

22 <- CCNfN>> 

If SI =* 0* Z2 <- CCnl^nl) : ?il > 0,if n2 « 0«> 

S1**Z2 <- CCN»N)> 

R - a cowplejc number* 
R <- CCN,H)> 

Error resul tss 

Error Number Arguaients Result 



OofRai m 






and 




and 




and 


Results 




Ranges 





670216 SI = +/-INOEF C+INO, ^-INO) 

670217 Z2 = +/-IHDEF (-UNO, +INO) 

670218 SI = +/-IHF C+IND, +IND) 

670219 Z2 = +/-INF {+INO* +IND) 

670220 SI * 0* 

and ReCZ2) < 0. or l!^{Z2) ^f 0.^ ( + IND, 4-INOI 

670221 S1**Z2 « +/-INF {+INOf 4-INO) 
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2.8.80 ZTOD 
Function: ZTOD 



Descriptions Raise a complex base to a d3ijtele precisioii poy^er* 

Entry points: ca ll-by-ref erence Hl?>$l?ZTOD# ZTOD 

call-by-value ni^tVlTBQ 

Argument ss Zl - a cowpiex number. 

02 - a double precision nuiber*. 

Ooinain: Zl <- C{N,N)> 

and 02 <- CN> 

and if Zl « iO«>0. )» D2 > 0» 

and Z1**D2 <- C<N,N)> 



Result; R - a complex number* 

Range? R <- C(NfN1> 

Error results? 

Error Number Arguments Result 



670222 Zl « +/-INOEF C+IND, +INO) 

670223 02 * +/~INOEF l+INO, ^IHO) 

670224 Zl « +/-INF (+I^Df +IND) 

670225 02 « +/-INF (+INO# -UNO) 

670226 Zl = 0« and 02 < 0. <+INO» +INO) 

670227 Z1**D2 « ^/-INF"" C+INI0> +INO) 
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2.8.81 ZTQI 




Fy net Ions 




Oescr i pt ions 




Entry pointss 




Arguments: 




Dos!ai ns 


+ 






and 


+ 






and 


+ 






and 




Result! 




Range: 



ZTQI 

Raise a complex base to an integier oower. 

call-by-reference niPtniTQl, ITOI 

cal l-by-vaSue fILPSVZTOI 

Zl - a cosiplex number. 
12 - an Integer. 

Zl <- {(N,N)> 

12 <- Cal I integers> 

Z1**I2 <- C(N*NI> 

if Zl « <0.»0.>f 12 > 

R ~ a complex number. 

R <- C(N,N)> 



Error results: 

Error Number Arguments Result 



670228 Zl ^ -t-Z-INOEF (+IND, ♦INO) 

670229 Zl « +/-INF (+INO, +IHO) 

670230 Z1**I2 » +/-INF {♦IND, 4-IND) 

670231 Zl = 0. and 12 < {+XMf>, +INOI 
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2.8.82 ZTOX 

FanctionJ ZTOX 

Descriptions Raise a coipplex base to a single precision power* 

Entry points: call-by-reference ^IPSRZTOXf ZTOX 

can-by-value Hl?>$¥ZTOX 

Argumentss Zl - a complex nu(»ber. 

S2 - a single precision nu?!!ber'. 

Domains Zl <- C<N*N)> 

and S2 <- CN> 

and If Zl « <0.fO.), S2 > 

and Z1**S2 <- C<H*N>> 

Result! R - a complex nuinber. 

Ranges R <- CCNfN)> 

Error resul tss 

Error Number Arguments Result 



570232 Zl = +/-INOEF i^lHD, ^IHD) 

670233 S2 « +/-INDEF C+IND, +IND) 

670234 Zl « >/-INF C+IMO, +INOI 

670235 S2 * +/-INF (4-IMOf -UNO) 

670236 Zl « 0. and 32 < 0. C+fND, +IN9} 

670237 Z1**S2 « +/-INf" (+IMO* +INO) 
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2.8«83 ZTOZ 

Functions ZTOZ 

Descriptions Raise a coi^plex base to a C9iplex ^o\iier* 

Entry pointss call-by-reference HLf>$RZTOZ* ZTOZ 

cal l-by-¥alue ML^SVZTOZ 

Zl - a complex number* 
Z2 - a complex number* 

Zl <- €<N,N)> 

Z2 <- C{N#N)> 

if Zl « (O.fO.), Z2 <- <:(nl,r,2) s nl > 0.* n2 » 0*> 

Z1**Z2 <- CCN*N)> 

R - a complex number. 
R <- C{N,N)> 





Ar gumentss 




Domai ns 


■¥ 






and 


-¥ 






and 


+ 






and 


+ 






Results 




Ranges 


+ 






Error results: 




Error Number 


•1- 






670238 




670239 




670240 




670241 




670242 




and 



Arguments Resu 1 t 



Zl « -t-Z-INDEF (+INO, +INO) 

Z2 = ♦/-INOEF (+INO, +INO) 

Zl « +/-INF «+INO, +IND) 

Z2 = ^/-INF C+I^^D, +INO) 
Zl « 

Re{Z2) < 0. or Iffl<Z2) «/ 0,' (^-TNO, +IND) 

670243 Z1**Z2 » +/-INF (+INO> +INO) 
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3*0 NUMERIC CONVERSION AND ASSEMBLY LANGUAGE SU'^RORT ROUTINES 



3«1 INTRODUCTION 

The CMML includes* in addition to the mathenaticaf functions already 
described^ a number of numeric conversion routines stnd assernbly language 
support routines which will be referred to faintly as the CHHL Common 
Support Routines. These routines are orbvlded for all products 
(compiler or runtime systemsl to perform numeric input and output 
conversion and other services and to allow code sharing. This will also 
ensure that the same numeric representation Hatches the same Internal 
bit value by ail processors. For perf ^irijance purposes* the support 
routines are written In CI 80 assembly language. 

The numeric conversion routines provide for' the conversion between ASCII 
character strings and internal numeric representations* The assembly 
language support routines {formerly described In 5CS document S3410) 
give the user access to some CISC hardware SD^* ^nd real arithmetic 
operations not readily available through CYSIL. The CMML support also 
provides some special conversion routines and capabilities specifically 
requested by the FMU project and other developnent organizations* 
because the improved performance of writlig them directly in the C180 
assembly language Justified the abandonment of CYBIL for these 
procedures. 

3.2 DQCUHENTATION CONVENTIONS 



The naming convention for types* values* dec! ar at i ons* and procedures 
conform to the SIS naming conventions with the first two characters 
being »ML* to indicate a Nath Library (CM^LI name. The third character 

indicates the type of name and the fourth character Is a *$«. 

The general linkage interface* error haidling* and parameter type 
specifications for the common support routines are discussed in the 
following sections. The types and values jsed H the CMML support 
routines are presented as CY8IL declarations. Each support routine and 
its associated parameter list are described In CYBIL format in the 
specifications section by its XREF procedure declaration common deck* 



3*3 LINKAGE INTERFACE 

The linkage interface for the CHHL support routines Is defined In CYBIL 
terras and conforms to the CYBER 180 System Interface Standard (SIS) for 
inter-language procedure calls* The calling sequences are described In 
the routine specifications* 
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3*4 ERROR HANDLING 

The CMML support routines are assembly language procedures designed so 
that no trap conditions are generated* There are no error nuinbers or 
naessages associated with these routines* A status parameter whose 
MLTSERROR value is returned to the cal I er i ndlcates the quality of the 
result returned* 

3*5 CONVERSION AND ALSS ROUTINE SPEC IFICATIlJ-^S 



This section contains procedure declarations with parameter list 

specifications and functional descriptions for the conversion and ALSS 

(Common Support) routines* Special CMML tvoes* constants and values 

used in the descriptions are defined in Appendix A* 

The meaning and usage of each parameter are usually obvious from its 
name and the context of the particular routine procedure* The most 
commonly used parameter names have the folloi^lnq meanings! 

* Source Pointer to the Input source data to be processed* 

« Sour ce^l ength Length of the source ifiput (Units vary according to 

the routine)* 

• Target Usually specifies the -feslred destination of the 

result* Sometimes It specifies an additional 
source parameter* 

• Target. I ength If this Is a VAR parameter* the actual length of 

the result is returned In this parameter* 
Otherwise* on input* it specifies the desired 
length of the result* 

* Status An MLTSERROR value Is' returned to caller via this 

parameter to indicate the quality of the result by 
specifying error status or soeclal condition that 
occurred* 
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3.5.1 HLPSBOP^CONVERSION 



C ML0$80P - Declare ml p$bdp_cony ersion > 

PROCEDURE CXREFl mlp$bdp_convers ion ( source: ^ce 1 1 ; 
sour ce.l engthJ ml t$bdp«l engtb; 
source^types ml tSbdp^typej 
targets '"eel 1 5 

target.length5?Blt$bdp_length5 
target. types ml tSbdp.typej 
VAR status: mlt$errorl5 

C FUNCTIONS Provide access to the numeric love (Mni^N) C180 hardware 
Ci nstruct i on. 

{ STATUS liLESINVALIO^BOP^OATA Is returned whenever the source or 
Ctarget type Is mfc$al phanumer I c» whenever' invalid BOP data 
ils contained in the source^ or whenever ^ source or target 
Clength is inappropriate for its type. 

C STATUS MLE$LQSS.OF. SIGNIFICANCE is returned whei the target field 
{is not large enough to contain the converted source. The target 
{will contain the rightmost significant digits of the converted 
{source. 
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3.0 NUMERIC CONVERSION AND ASSEH81Y tANGlUGE SlIRPCrRT ROUTINES 
3.5*2 «IRS80R.T0_8ITS AND HLP$BITS.T0_8D^ 

3.5.2 lilP$8DP.TQ.8ITS AND MIP$BITS.T0.80P 



C MiO$BIT - Declare ml p$bdp.to.bi ts > 
i ^fxii - Declare ml p$bi ts_to_bdp > 

PROCEDURE CXREF1 mip$bdp«to.blts (source? "ceMl 

sour ce.l ength: ii»lt$bdp_l engt h; 

source.types ml t$bdp_type; 

target? '^cel 1 1 

target«.l ength? ail tSstr ing^l engthi 

tar get.bi t^of f set: •• 7; 
VAR negative? boolean, 
VAR status? mItSerror)! 

PROCEDURE CXREF3 ml p$bi ts.to.bdp (source? '"ceMl 
sour ce_ I ength: ml t$str lng_l ength; 
sour ce.b I t_of f set: •• 7; 
source^type: ml t$l nteger.type; 
target: '^cell; 

targe t_ I ength? ml t$bdp_l ength; 
target^type? m I t$bdp_type j 
VAR status? mlt$error); 

C FUNCTION: Convert a BOP number Into an jnaligned bit string (and 

Cvice versa). Written at the request of the FHIJ project. 

C 

C In both procedures* the length of the bit string is in bits* not 

Cin bytes. The converted source Is always placed right-Justified 

tin the target field with zero fill to the le^t unless the source 

Cin ml p$bi ts^to.bdp is signed and negative. All 8DP types 

Cexcept alphanumeric are allowed. 

I 

C NEGATIVE return a value of true whenever the source is negative. 

C 

C STATUS Hl£$BAD_PARAH£TERS Is returned whenever RE4D parameters are 

Cout of range* 



C STATUS HLESLOSS.QF.SIGHIFICANCE is retur>^8rf ^Nenever the target is 
Ctoo small to contain the converted sourcs* Truncation of the 
Cleft-aiost digits occurs to force fit the rasuit. 
C STATUS MLE$INVALI0_80P.0ATA is returned whenever a source b6p 
CnufBber contains invalid characters* 
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3.0 NUMERIC CONVERSION AND ASSEHBLY lANGUASE SUPPORT ROUTINES 
3«5.3 HiPSCOHPARE.SOP 

3.5.3 HLP$COHPARE«BDP 



C J11D$CMN - Declare mi p$cofl?par e^bdp > 



PROCEDURE CXREF3 ml pScorapar e.bdp ( sour ces "ce ! t 5 

sour ce_l ength: niltSbdP^lengthj 

source^type: mi t$bdp_type; 

targets '^cel f ; 

tar get_l engths ml tSbdp^l ength; 

tar get.types ml t$bdp_type; 
VAR result: i^l tScoiapar e; 
VAR statuss (lil t$er ror ) 5 

C FUNCTIONS Provide access to the decimal con^are (CHPN) C180 

Chardware instruction. The user is referred to the >1IGDS 

Cfor information regarding the BDP types t!fat are acceptable 

Cto this instruction* 

< 

i STATUS MLE$INVAIID_80P.DATA is returned whenever BDP type or 

{[length is illegal for this hardware instruction. 
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3. 5.4 HLRSCOMPARE^BYTES 



i lilOSCQH ~ Declare ml pScompare.bytes > 



PROCEDURE CXREF3 iBlpScompar e.bytes (source? ''cell; 

sour ce.i ength: ml t$str ing_l ength; 

target! '^cel 1 1 

target.! engths ml t$str ing.l ength; 
VAR results mlt$compare; 

VAR number^equal^bytes s ml t$str i ng_t ength; 
VAR status? mltSerror); 

C FUNCTIONS Provide access to the compare bytes (CHPBJ C180 

Cinstruction without limiting the user to byte le^igths less 

Cthan or equal to 256« 

I 

I STATUS HlE$NQ.ERROR will be returned. 
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3.5.5 MLPSCOMPARE^COLLATED 

3.5.5 MLPSCQHPARE^COLLATEO 



C MLOSCCI - Declare ml pScoropar e_co I I ated > 



PRQCEDURfc CXREF3 ml pScofflpar e_co I I ated (soar ces '^cell ; 

sour ce„l engths ml t$str i ng_l ength; 

targets '^cellj 

tar get_ I engths ml t$string_l ength; 

col I at eatable: '*'cell5 
VAR results ml t$cof!»pare; 

VAR nuinber.equl val ent^bytess ml t$str i ng^l engthi 
VAR statuss mItSerrorl? 

€ FUNCTIONS Provide access to the compare collate^ CCMPC) C180 

Chardware instruction without restricting the tiser to byte 

Clengths less than or equal to 256. 

i 

i STATUS HLESNO.ERRQR is returned. 
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3,0 NUMERIC CONVERSION AND ASSEH8LY LANGUI^GE SUPPDI^T ROUTINES 
3,5,6 MLPSCOHPARE.FIQATINS 

3. 5,6 MLPSCQMPARE. FLOATING 



C MLD$CF - Declare ml p$compare_f loati ng > 

PROCEDURE CXREFl ml pScompar e_f 1 oat i ng Csouroe? '^cel I ; 

sour ce_l engths in 1 1 $f I oat I ng_ I ength; 

target: ""celll 

tar get^i eiigths ml t$f I oat I ng_l ength; 
VAR results wl tSconspar e; 
VAR status 5 mltSerror); 

C FUNCTIONS Compare the values of two floatlnq point nufubers. 

C 

C STATUS MLESINOEFINITE Is returned whenever' the source or target is 

Cindefinite or whenever both source and target are infinite with the 

Csaffle sign. The result is then HLCSUNORDERHO, 
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3*0 NUHERIC CONVERSION AND ASSEH8LY lANGiJASE SlJPPdRT ROUTINES 
3 •5.7 HLPSCOHPUTE.FLOATING.NUHSER 

3«5.7 HLP$COMPUTE_FLOATING_NUHBER 



C MLD$CFN - Oeci ar e snl pScompute.f I oat irig.huiiber > 

PROCEDURE CXREFl ml p$co!BPUte_f I oat i ng^fiumber ( sour c es 
mlt$ftoatlng_lnput5 

seal e^f actor ! Integer? 
targets ^cel 15 

target.l ength! irI t$f I oati ng_l engthi 
VAR statusJ fflitSerrorH 

C FUNCTIONS Generate an internal (binary) fltsatlng point number 
Cgiven as Input a scale factor (power of ten) and the TARGET 
Cparameter result of ?1LP$INPUT. FLOATING ^14MTISSA (as SOURCE). 
C 

I STATUS fILESQVERFLOy is returned whenever' the floating point number 
C"generated*» is out of range (that is - Infinite or Indefinite). 
C The value returned will be either +INF r^r +INO> depending on the 
Cnature of the overflow. 
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3*0 HUHERIC CONVERSION AND ASSEH8LY LANGUASE SUPPORT ROUTINES 
3.5.8 HLPSCONVERT.FLQAT^TO^INTEGER 



3.5.8 MLPSCONVERT^FLQAT.TO^INTEGER 



C MLOSCFI - Declare flilp$convert_float.to.lfiteger > 



PROCEDURE CXREfl ml P$con ver t.f I oat_to_i nteger C sojf ce: '^cell? 
sour ce^lengths ml t$f I oat ing.l engthi 
target! '^cetlj 

targe t_ I ength? ra 1 1$ Integer .lengthy 
target. type? ml t$i nteger.type; 
VAR status? ml tSerror) I 

{FUNCTIONS Convert a floating point number* into an integer. 

€ 

C STATUS HL€$LQS$.QF_SIGNIFICANCE is returned whenever the floating 

Cpoint number cannot be represented as an integer of the specified 

{length. The integer value returned will contain the rightmost 

{significant bits of the correct result. !=sor Infinite or Indefinite 

{floating point numbers* the Integer value returned is 0. 
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3,5.9 MLPSCONVERT.INTEGER.TQ^FLOAT 



C MLDSCIF - Declare ml p$convert_l nteger.to.f I oat > 



PRQCEOURE CXREF3 ffllp$convert.lnteger_to_f loat (source: ^cell; 
source^lengthJ mltSinteger.lengthl 
source^type: ml t$i nteger_tys>ej 
target! "^cellj 

target^l ength: m I t$f i oat i ng^l engthi 
VAR status s mltSerror)? 

{ FUNCTION: Convert an integer Into a f I o>at1 ng poI n t number. 

I 

i STATUS HLE$NQ_ERRQR is returned. 
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3*0 NUMERIC CONVERSION AND ASSEHSIY lANGiJAGE SJPPORT ROUTINES 
3«5,10 MIPSINPUT^SASE.NUMBER 

3«5.10 MLP$INPUT^8ASE. NUMBER 



C HLD$I8N - Declare ml p$ input^base^nurober* > 

PROCEDURE CXREFl ii5lp$lnpyt_base.number isoiart^Bi ''eel I; 

sour ce_l ength? ii?l t$str ing.l ength; 

targets ^celM 

target^l ength: ml t$str ing.l engtN; 

base! ml tSnon^deci mal^basel 

Inbedded^bi anks: jh I tShandl e.bl anks; 

just i f icat i on: inl t$ just i f y ; 
VAR actual^source^l eng tb: ml t$str ing^le-^^th; 
VAR statusJ mItSerror); 

£ FUNCTION: Convert an ASCII representat I ori of a non-decimal base 

Cnurpber Into an Internal binary repr esentat i on.? Leadi ng ASCII 

Cblanks are ignoredj leading ASCII zeroes ^ill be converted as part 

Cof the number* The ASCII number is considered to be unsigned. 

C 

C The TARGET^LENGTH Is in bytes* 

C 

i The ACTUAt.SOURCE. LENGTH returned is the nu'uber of source 

Ccharacters processed* including leading blanks nri^ blanks that were 

Cignored or treated as zeros* Illegal character's and blanks treated 

Cas illegal (MLC$STOP.ON_BiANKS) are not if^cluded In the actual 

CI ength* 

C 

i STATUS HLESBAO.PARAHETERS is returned ^Herye^er READ parameters are 

Cout of range* 

C STATUS HLESIOSS^OF^SIGNIFICANCE occurs /then the target field is 

Ctoo small to contain the converted source* The rightmost 

Csignificant bits are truncated In the target field* 

C STATUS HLE$INVALID_80P.DATA is returned »hen an Illegal "digit" is 

Cpresent in the source field* A terminating blank or comma Is NOT 

Cconsidered illegal* The input field to that ooint will be 

Cconverted* 
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3.0 NUMERIC CONVERSION AND ASSEMBLY LANG'JASE SU?*P3RT ROUTINES 
3. 5. 11 HlP$IHPUT_FLOATING„MANTISSA 

3.5ai MIPSINPUT.FIQATING.HANTISSA 



C HLOSIFM - Declare nil p$ Input^f I oating^mant I ssa > 

PROCEDURE CXREFl ffllpSinput^f loating.mantlssa fsources '^cell; 
sour ce_l ength! fnl t$str Ing^l engthi 
imbedded^bl ankss m ItShandl e.bl anks? 
VAR target: ml t$f i oat i ng. i nput; 
VAR deci fjial^po int.founds boolean; 
VAR actual.source.lengthJ ml t$str ing^lerigth; 
VAR status? mltSerror); 

C FUNCTION: Convert an ASCII representation of a floating point 

Cmantlssa Into an internal representation far later conversion to 

Cinternal floating point after est abl I shi 'ig the value of the 

Cexponent f I el d* Leadi ng blanks and zeroes are Ignored* 

i 

C STATUS HLESSAO^PARAMETERS Is returned wfienever READ parameters are 

Cout of range* 

I STATUS Ml£$INVAlI0_8DP_0ATA Is returned whenever an Illegal 

Ccharacter Is detected in the source* This s I tuati on Includes 

Cpossible exponent field characters *•£*• and »»D**f completely blank 

CfleldSf and source fields containing only a sign character* In the 

Clatter two cases* the field is considered to be Identically zero* A 

Cterminating blank or comma Is NOT considered Illegal* 
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3. 3, 12 HIP$INPUT.FL0ATING_HUH8€R 



i M10$IFN - Declare ml p$ input.f I oat I ng^nuiber > 

PROCEDURE CXREF3 ni lp$l nput^f I oat i ng.number ( s^jur ce? ''eel l| 

sour ce.l engths ml t$str I ng_l engthj 

target: '^ceJ I ; 

target^! engtfi? m\t%fi oat i ng.l ength? 

hand I e^bl anks? wl tShandl e.bl anKs? 
VAR actual. source. lengttiJ ml tSstring.length; 
VAR status: mJt$error)j 

{ FUNCTION: Convert an ASCII representatioi of a floating point 

Cnumber Cwitb an optional exponent fieldl into the Internal 

CCbinary) floating point representation. 

C 

<. RESTRICTIONS: The exponent field fnust begin with •'£»•, "0«, "e**. 

Cor "d'^. Arithmetic overflow during exponent coi?Putation is Ignored 

C 

C The only valid values for the HANDLE. BLANKS parameter are 

CMLC$IGNQRE.BLANKS and ULCSSTQP.ON.BLANK. 

C 

C STATUS HLE$INVALI0.80P.0ATA is returned whenever' an illegal 

Ccharacter is detected in the source field. A terminating blank or 

Ccomma is NOT considered illegal* 

i STATUS MLESQVERFLOW will be returned whenever the floating point 

Cnufiiber is Infinite or indefinite AND status is otherwise no error. 

C STATUS HLESNO.DIGITS is returned if no digits were found in the 

Csource. 
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3.5.13 HLPSINPUT^INTEGER 



C MLOSII - Declare ml p$i nput^i nteger > 

PROCEDURE CXREF3 ml p$i nput^i nteger (sources "^'cell? 
sour ce^l engtNs irI t$stri ng.l ength; 
target: *celU 

tar get. I en gth 5 fnl tSinteger _l ength; 
target.typeJ m\ t$i nteger.typei 
imbedded.bl ankss ail t$h and I e. blanks; 
VAR actual_source_l eng th: ml t$str I ng.leTcjth? 
VAR status: mlt$error)| 

C FUNCTIONJ Convert an ASCII representation of an Integer into the 

C interna I {binary) representation. 

C 

C STATUS HL€$HO.DieiTS Is returned whenever the source string 

Ccontains no digits (ASCII characters in the set «0»...*9«). 

C STATUS liLE$INVALID.30P.DATA Is returned i^henever an Illegal 

Ccharacter is detected in the source field. A blank does NOT cause 

{this error status* STATUS ML£$L0SS.QF.SISMT1=IC ANCE is returned 

{whenever the internal integer field is too s^^iall to contain the 

{converted ASCII source. The rightmost significant bits are 

Cretai ned. 
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3.5.14 MlPSIHPUT^UNPACKEO^OECIMAl 



C MlD$iUO - Declare ffllp$inpyt.unpacked_<!9cl!!iaf > 

PROCEDURE CXREFl in lp$l nput.unpacked^deci na I C source : "^celll 

sour ce_i engthJ »!it t$str ing_l engthj 

targets '^cel 1 5 

target^! ength5 ml t$fodp_l engthi 
VAR actyal.source^l engths ml t$str ing^l eigtfil 
VAR status: mltSerror); 

C FUNCTION: Convert an ASCII representation of an unpacked decimal 
Cnumber (with possibly I eadi ng bl anks and/or a leading sign) into 
Cthe Internal 80P format of UNPACKED OECI'IAL T!?ATLINS SIGN 
CC0H8INED HOLLERITH. The result will be r'liht justified In the 
Ctarget field. If the result Is shorter than the target field* the 
Ctarget field will be zero filled to the left. The final digit **ill 
€be changed to conform to the preferred combined sicin format. 
CWritten at the request of the COBOL and FiU Projects. 
C 

< If a decimal point is encountered before the source field is 
Cexhaustedf it terminates the source Input and only the digits 
Cpreceding the decimal point are converted. The decimal point is 
Ccounted In the actual^sour ce.l ength retuned and is not considered 
Can illegal character. 
C 

C STATUS {iLE$INVALI0_8DP.DATA Is returned whenever an Illegal 
Ccharacter is detected in the source. The source Is converted up to 
Cthe Illegal character. The Illegal char act erisnot counted In the 
Cactual_source_l ength returned. 

C STATUS ML£$LOSS_QF. SIGNIFICANCE is returned k«henever the target 
Cfield is too small to contain the source number. The rightmost 
Cslgnlflcant digits are retained. Also* If the length of the 
Cslgnificant digits of the source* including the optional sign* 
{exceeds 38 bytes* STATUS HLESLOSS.OF.SISMTF ICANCE Is returned. Only 
Cthe first 38 bytes from the left will be converted. The 
Cactua l_sour ce_l ength returned will Include a count of all 
{significant digits encountered in the source even though not all 
Cwi i I be converted. 
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3.0 NUHERIC CONVERSION AND ASSEHBLY LANGJ4SE SUPPORT ROUTIHES 
3«5,15 MLP$HQVE.8YTES 

3*5. 15 HLP$HOVE.BYT£S 



C f1L0$MOV - Dec! are mlpSfflove^bytes > 

PROCEDURE CXREFl ml pSroov e.foy tes Csources ^ceM? 
sour ce^l ength: fiil t Sstr ing_l angth; 
targets "^cel I ; 

target^l engths ml tSstr ing.J engthi 
VAR status: ml t$er ror ) 5 

C function: Provide access to move bytes ?^0¥B) C180 hardware 

Cinstryction without restricting the caller to fields less than or 

Cequal to 256 bytes. Furthermore* allow overlaoolng source and 

Ctarget fields. 

C 

C STATUS will be MtE$NO^ERROR 
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3.0 NUMERIC CONVERSION AND ASSEH8LY lAMGlJ^GE SllPP3l?T ROiiTINiS 
3«5.16 I11P$0UTPUT.8ASE_NUN8ER 

3, 5. 16 MlP$OUTPUT.8ASE^NUH8eR 



C HLDSOBN - Declaration of mlpSoutput^base^hu^iiber } 

PROCEDURE CXREF3 mlpSout put^base.number (sources '^celll 

source.l ength? mltSstrlng^lengthi 

targets ^celll 

target^lengths mlttstring^lengthl 

bases ml t$non_deci mal.basej 

jyst i f I cat ion: mi tSjusti f y| 

suppress_l eading.zeros : boolean; 
VAR actual.t ar get_i eng ths ml t$str I ng_le??gth; 
VAR status? mltSerror); 

C FUNCTIONS Convert a binary integer Into a^i Cnon-dec imai ) ASCII 

Cr epresent at I on» or simply do a memory dunp. 

i 

i SOURCE^LENSTH is in bytes. 

C 

C All bytes of the source number are converted 9f\i may yield 

Cieading zeros «hich are part of the converted nunber. These 

Czeros jsay be suppressed In the target by setting parameter 

CSUPPRESS.IEADING^ZEROS to the value TRUE. 

C 

i When the tar get^l ength Cincluding leading ?eros* If any) is 

Cless than the size of the target area# blanks fiiay be used to 

Cfill in the rest of the area. 

C 

i yhen JUSTIFICATION Is MLC$RIGHT_JU$TIFY» blank fill is used. For 

CMLC$LEFT_JUSTIFY, no fill is done. 

i 

i ACTUAL^TARGET^LENGTH Is the number of fion-blank ASCII characters 

Cwritten to the target. 

C 

C STATUS HLE$L0SS_0F.SIGNIFICANCE Is retur'ned whenever the target 

Cfield Is too small to contain the converted s?>urce. Truncation of 

Cdigits at the left occurs for right justification. Truncation at 

Cthe right occurs for left justification. 
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3.0 NUHERIC CONVERSION AND ASSEHBLY LANGUAGE SIJPP3RT ROUTINES 
3*5«17 HlP$OyTP»iT_FLQATIN6.0IGITS 



3.5.17 HIPSOUTPUT.FIOATING^DIGITS 



C HLOSOFO ~ Declare sul p$outpyt_f I oat Ing^dl gl ts > 

PROCEOURE tXREFI ml p$oyt put^f I oat i ng.dl gl ts (sources ''cellj 
source_lengtl?: ml t$str i ng^length? 
tar gets ''eel i ; 

tar get^l engths ail t$str i ng.l engthi 
I eadifig^bl anks s ml t$str ing_l engthj 
leadi ng_ zero ess ml t$str i ng_< engt^; 
dec! roal.po Ints pJ t$str I ng_l engthj 
si gn^char acter s char I 
VAR status s iBltSerrorlj 

C FUNCTIONS Generate an ASCII floating point i^antissa given an ASCII 

Cor unpacked decimal trailing sign coiiBbinei hoi lerl th string of 

Cdlgits and formatting I nf orniat ion. 

I 

i The value of OECIMAt. POINT Is the location in the target ••string*' 

Cof the decijaal point character. Note that the first position in the 

Cstring has an index of 0. 

C 

C TARGET. LENGTH must be greater than SaUR: = .lS^^GT^ + lEAOING.BLANKS 

C+ ordC SIGN.CHARACTER <> chr( ) >. 

C 

C The target area will be right-filled with zeroes If necessary to 

Centirely fill the field. 

C 

C STATUS Mill contain Ml ESNO.ERRORR. 
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3.5.18 MlP$QUTPUT^FLOATING.HUHBER 



i M10$0FH ~ Oeclare mlp$outpyt.floatlng«niiiiber > 

PROCEOURE CXRgFl fsl pSoutpufc.f I oat f ng^numbsr Csources *ceIM 

sour C8.I ength! mi t$f I oati ng_l ength; 

target: ^cellj 

formats sal tSoutput^f orrnat 5 
VAR actuar.t ar get^l engths ml tSstr i ng^l ?»igthi 
VAR states: fliltSerrorlj 

C FUNCTION: Convert a floating point number into an ASCII 

Crepresentation. 

C 

C FORMAT describes the format of the result string. The names of the 

Cordinals for the FORMAT field <of the sa^we-naned parameter) are 

Cderlved from FQRTRAN-st y I e format descriptors.' 

C When the FORMAT field contains MLC$LIST_DIR€CTED» the number is 

Coutput in either a modified E or modified F format. If the absolute 

Cvalue of the number Is greater than or eqjal to 10**-6 and less 

Cthan 10**9» the modified F format is used; otheri^lse the modified E 

Cformat is used* The DIGITS field gives ths '^unber of digits to 

Cwhich the number is rounded. Trailing zeroes after the decimal 

Cpoint are always removed. The SCALE. FACTOR field is Ignored; 

£rather# a seal e_f actor of Is used for the modified F styles and 1 

Cis used for the modified E format. The EXPONEMT.STYIE field Is also 

{Ignored. No exponent occurs for F style* and> for F style* the 

Cwidth of the field will be the minimum needed.! If the WIOTH field 

{Is insufficient to hold the representation with all DIGITS 

{significant digits* then digits Hill be truncated from the right of 

{the mantissa in order to fit the represent at i on into WIOTH 

{char acters. 

{ When the FORMAT field does not contain 1iC$LIST.BIRECT£0* the 

{EXPONENT.STYLE field contains either or the number of digits in 

{the exponent. When is provided* the normal FORTRAN style of four 

{characters for the exponent is used. When the JUSTIFICATION field 

{indicates right justification* blank fill i*lil occur on the left. 

{Otherwise there is no fill. 

{ 

{ ACTUAL_TARGET_LENGTH will contain the nunber of characters written 

{to the target area* excluding any paddinq. 

{ 

{ STATUS MIE$3A0. PARAMETERS is returned when FORMAT. WIDTH is 

{inconsistent with the other fields of FORMAT* Independent of the 

{value of the floating point number. 

{ STATUS MLESINFINITE is returned whenever the source floating point 
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Cnuinber is infinite* 

C STATUS HLESINDEFINITE is returned whenever ths source floating 

Cpoint nunaber Is Indefinite* 

i STATUS MLESIQSS.OF. SIGNIFICANCE Is returned viNenever the 

^particular value of the floating point nyiit5er is not r epr esentabi e 

CIn the format specified* 
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3.5*19 liLP$OUTPUT«INT£GER 
3*5,19 NLP$QUTPUT_INTEGER 

C HtO$OI - Declare hi lp$output.l nteger > 

PROCEDURE CXREF3 ml p$output^l nteger (source: ^ceM? 

sour ce_l engths ^1 tSinteger^l ength? 

source. type J ml t$i nteger_type| 

target! "^cell I 

target.! engths ml t$str i ng.l sngth; 

justification: ml tSjusti f y > 

sign: ml t$sl gn.treatraent; 
VAR actual.t ar get.l engtti: ml tSstr Ing.le'iqtN; 
VAR status: inlt$erfor)J 

C FUNCTIONS Convert an integer Into an ASCII representation* 

C 

C yhen JUSTIflCATIOH is MLCSRIGHT. JUSTIFY* the target area is 

<bl ank-f i I I ed to the left* Otherwise no fill Is done. 

i 

C ACTUAL. TARGET.LENGTH miU contain the nuiiber of digits written to 

{the target area plus 1* If there is a si(if>.i 

i 

i STATUS HLESLQSS. OF. SIGNIFICANCE is returned whenever the target 

{field is too sfsall to contain the converted source* Truncation of 

Cthe leftmost digits occurs* 
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3*5,20 MLP$RQUNO.FLOATING^NUMBER 



C H10$RFN - Declare iBip$round_f!oatlng_nufi»bef > 

PROCEOURE CXREF3 iwlpSr ound^f loat I ng^fiumber' tsource: '"ceM,* 
source_l ength: rol t$f I oat ing^l engthr 
target? '^cel 1 5 

nywber^of^di gi ts5 ml t$di gi t_str i ng.l%^gt*i; 
power, of. tens Integer; 
VAR status* ralt$error)5 

{ FUNCTION: Convert a floating point number Into an ASCII string 

^containing the first HUMBER.OF, DIGITS si gni f f cant dl gl ts (rounded) 

CHL}>$SC4Le_FL0ATING^NUH8£R roust be called before 

CHLPSROUND.FLQATING^NUHSER, and the P0WER.3F.TEN result of 

€MLP$SCAIE_FLQATING,NU!18ER must be passed to 

CfUPSROilNO.FLOATING.NUHSER. 

C 

C MLP$ROUND.FtOATING_QUTPUT and HLPSSCALE.FLOATINfJ.QUTPUT Piust be 

fused fey all C180 products for the output of floating point 

Cnumbers to ensure uniforin representation thrbughDut the C180 

Cproduct set. HIP$QUTPUT_FIQATING,NUMBER ^n I do this for the user, 

Cprovided that the available floating point fonats of the latter 

Cprocedure are adequate for the user^s purpose* 

i 

i STATUS MIE$BAD_PARA!1£TERS Is returned j^henever the floating point 

Cnumber Is infinite or indefinite. (This should have been caught 

Cby the call to MIPSSCAIE.FIQATIHG.NUMBER. ) 

I STATUS Hl£$OyERFiOW is returned whenever the rounded source 

Cnuniber's POWER_QF«TEN differs from the aotuaT power as passed by 

Cthe caller. The digit string returned is then '•1D...0**. 
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3, 5,21 HLPSSCALE.FIOATINS^NUHBER 



C MLDSSFN - Oeclare ml pSscal e_f loati ng^nu^ber > 

PROCEDURE CXREF1 li I pSscal e^f I o at i ng.nu?iiber { sourcs? ''cei I ; 
source^! ength J ml t$f I oat ing_length; 
VAR power^of _tenJ integer 5 
VAR status? mtt%error)p 

i FUNCTION : Determine the value of the I'lacf'itI) exponent of a 

Cfloating point number in the form d*dd ••• E •« 

< 

C POyER_OF_TEN will contain if the floating point nuRiber Is zero. 

COtherMlsef If x Is the absolute value of the floating point nuiPber 

Cand 1,0 <» x * 10*=«'e < 10«0» then POWER.B^uTE^I will contain e. 

C 

€ STATUS Ht£$INDEFINIT£ is returned whenvar' the source is 

Cindefinite. STATUS HLESINFINITE Is returried ^kenavmr the source is 

Cinf Inite. 
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3«5*22 HLP$SCAN^8YTES 



i MiOSSCA - Declare ml p$scan_byt8s > 

PROCEDURE CXREFl ffilp$scan_byt8s Csource: '^cell; 

source^! engthJ m I tSstring.l sngth; 

scan.tafel es ^cel 1 1 
VAR number^not^mBtcbingi ml t$stf i mg^lengthi 
VAR statuss ail t$er ror > I 

i FUNCTION: Proyjde access to the scan bytes ^hlle non-iuember <SCN8) 

CC180 hardware instruction* without restricting the caMer to 

Clengths less than or equal to 256 bytes, 

C 

i STATUS will contain HL£$NO^ERROR . 
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3.5.23 MIPSTEST.FOR^EXCEPTIQH 



C MLOSTEX - Declare jnlp$test_for_exceptiQn> 

PROCEDURE CXREF3 mlp$test«for_exception (sourceJ '^eerij 
^AR status J isltSerror); 

C FUNCTION: Test a floating point number f or I fif lr»l te or Indefinite^ 
C 

C If the number is indefinite* return HlESIMDEFfNITE in STATUS* 
C If the number is Infinite* return MIESIMFTNITE* Otherwise 

Creturn HIESMO^ERROR, 
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3,5»24 HLP$TRANSLATE.BYTES 



C M10$TRA — Declare mlpStranslate^bytes > 



PROCEDURE CXREF1 lif p$tf ans I ate.by t es (source? '"cell? 
source.! eogth: wl t$str i ng. I er^gth; 
tar gets *cel M 

tar get. I engths ml t$str ing.l engthi 
tr ansi at ion.tabl el '^ceHl 
VAR status: inltSerror); 

CFUNCTIQN5 Provide access to the translate bvtes tTRANS) C180 

Chardware Instruction wlttiout restricting the source or target to 

Ca maxlffluia of 256 bytes. 

C 

C STATUS 1*1 I I always be MLESNO.ERROR* 



CONTROL DATA CORPORATION - CO^I^ANY PRIVATE - Revision € 

3-28 
C180 Coffimon Modules Hathematlcai Library CC^I^IL) f^RS 

85/08/23 

3,0 NUHERIC CONVERSION ANO ASSEIiBLY LANG'JAGE SJPPCJRT ROUTINES 
3.5.25 MLP$VAX.T0.180.FL0ATING 

3.5.25 HLP$VAX_T0.180.FL GATING 



C HLOVAXF — Declare ?u |p$VAX_to_180_f I oati ng > 

PROCEOyRE CXREFl mfp$vax_to„180_noatlfig Csource: '"cell; 
sour ce^types m I t$vax_f loat ing^type; 
target* "^ceil; 

target^l engths ml t$f I oat i ng_f engtN; 
VAR statusi ralt$errof)| 

€ FUNCTION? Convert a VAX floating point lUfJiber of the specified 

Csource^type to a C180 floating point nunber of tNe specified 

Ctarget length. 

C 

£ 

C LENGTH AND SIZE INFQRHATION FOR FLOATING TYpESs 

C 

C TYPE LENGTH EXPONENT TRUE FRACTION 

C (8YTES) SIZE CBITS) SIZE (BITS) 

C «^_. _. ——..-.-— .-^ ..^-. 

C 

C 

€ rslc$vax_4_F.float 4 3 24 

C !Pl c$vax_8_D_f loat 8 3 56 

C mlc$vax^8.G_f loat 8 11 53 

C ffllc$V3x.l6.H.f loat 16 15 113 

£ wlc$single_precislon 8 15 48 

£ fill c$doub le.preci si on 16 15 96 

£ 

£ 

£ ERROR STATUS: 

£ML£$BAO_PARAHETERS is returned whenever source^type or target. 

£length is out-of-range* 

£ 

£AII VAX Reserved Operand values are converted to C180 +INFINITE 

£and status MLE$INFINIT£ Is returned. 

£ 

£No other errors can occur for ml c$vax_4_f .f f oat type conversion. 

£Such values can aii<«ays be converted exactly to C180 floating 

£point formats* 

£ 

£Mrc$v ax_8.d_f loat and ?nlc$vax_8_g_f loat VAX vilues can always be 

£represented within range In C180 format regardless of target 

£l€ngth* Howeverf significance can be lost as a result of the 

£fewer number of fraction bits available for C180 s I ngl e.pr eel s i on 

£floating point format. The result is rouided to 48 bits of 
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£signlflcance and ML£$LOSS.OF.SIGN IFICANCE Is returned. Signif- 
£icance can be preserved for these VAX 8-hyte types by specifying 
£C180 ml c$doub I e_pr eel si on for the target. 'I enqth. 
£ 



CVAXffllc$vax_i6_H_float values can exceed! CIBO double precision 

Cvafues in both range and precision. Since there is such a large 

Cdifference In the number of fraction bits between the VAX and 

CC 180 16-byte floating point formats* the result is rounded to 

£96 bits of precision* but no loss_of_signi f i cance error will be 

Csignaled for these conversions unless the target length was 

Cspeclfied as ffll cSsing le.precisi on* 

I 

CThe table belo*« shows the result and errsr status for VAX values 

Cthat are out-of~range for C180 single and double precision 

{floating point numbers. VAX values that G0?^vert to C180 values 

Cwlth the following C180 biased exponents will produce the 

{indicated results. The exponents include the sign bits 

{ 

C 

i C180 BIASED EXPONENT RESULT ERROR STATUS 

I «. -.-»- . «« . .-:-.-^^ 

i 
c 

C OXXX or 8XXX HLESHO^SRROR 

i 

i 1000-2FFF or 9000-AEFF ?^LE ^UNDERFLOW 

i 

I 5000-6FFF ^INFINITE HLESQVERFIOW 

I 

I DOOO-EFFF -INFINITE MLE SOVERFLOW 

i 

i 7XXX +INOEFINIT= ^LE SINOEFINITE 

i 

i FXXX -INDEFINITE HLESIHDEFINITE 

C 

C *VAX Reserved Operand* +INFINITE ^LE$INFINITE 

i 

i 
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C MLDVAXL — Declare ffllp$VAX.to.l80.fortr an.1 ogl cal > 



PRQCEOURE CXREF1 rolp$vax.to_180_fortran^l3glc3l (sources '^cellj 
source^l ength: lal t $vax^i ogl cal_* sngth; 
targets '^celli 

tar get.l engths ml tSFQRTRAN.I ogl cal.l en§thl 
VAR statusJ ffilt$errorl; 

C FUNCTI0M5 Convert a VAX logical value t9 a CIBO FORTRAN 

Clogioal value of the specified length* The right fnost bit in 

Cthe first byte of the VAX value is used to determine the 

Cioglcal value* A one bit means TRUE and a zero It this bit 

Cmeans FALSE. The C180 FORTRAN logical resjlt uses the sign 

Cfoit Cbit 01 of the result to indicate its logical* value* 

CThe sign bit of the target will be set ta a one for TRUE 

Cand to a zero for FALSE* The rejaalning bits In the result 

Cwi H be all zeros* 

i 

C ERROR STATUS! 

CML£$8A0_RARAHET£RS is returned whenever source.! ength or 

Ct ar get.l ength Is out-of-r ange; otherwise* STATUS will always 

Cbe HLE$I^O.£RROR. 

C 
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C MLOVAXI — Declare ml p$VAX.to.l80.l nteger > 



PROCEDURE CXREFJ fnlp$vax.to«l80.int€ger ( source: V^ce I Ij 
sour ce_l engtfi: il t$vax_lnteger^l enqt^l 
target: ^cel l| 

target.! ength: m I tSinteger _l engttij 
VAR status: mltSerrorJ; 

i FUNCTIONS Convert a tMO*s coisplenient sigied iritager valye in 

CVAX format to a signed integer in C180 foriat, Ttie target result 

Cis always r Ight- jus ti f i ed vtltli sign extensfo?^ to tfie left. 

C 

I ERROR STATUS s 

CHIESBAD.PARAHETERS is returned whenever the sotirce.length or the 

Ctarget_! ength Is out-of ~r ange. 

C 

CHLESLOSS.OF.SIGNIFICAHCE Is returned whei the MAX number Is not 

Crepresentabf e as a C180 number of the spesfflsd length. The C180 

Cresylt Is truncated at the left to fit the target ^leld* 

i 
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■C MLOVAXPO — Declare ml pSVAX.to.lSO.packed.dec I ?!ial > 



PROCEOURE CXREF3 inlp$vax_to_180.packed.dtGl^a1 fsource: "^cellj 
sour ce_! engtfis ml tSvax^packed^deci wal „^t sr>gth? 
targets ^cel I ? 

tar get. I engthJ ?»lt$bdp_length| 
VAR statusJ wltSerror); 

C FUNCTIONS Convert a VAX packed decimai yalue of the specified 

CJengtfi to a C180 packed decimal value of the desired target.! engtN* 

I 

C ERROR STATUS! 

CSTATUS HLe$8A0.FARAHeTERS is returned nhenever the sour ca.1 ength 

Cor target.! ength Is out-of-r ange. 

C 

CSTATUS MLESLOSS.OF.SIGNIFICAHCE Is returned ^^henever the target 

Cfield Is too small to contain the converted source. The target 

Cwill contain the rightaiost significant digits of the converted 

Csource* 

C 
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C MLD$788 - Declare ml p$170.to.l80.bi nary > 

PROCEDURE CXREF3 in Ip$170.to.l80.b i nary (sour ce? "ce I I I 



sour ce_l engtii: jnl t$str lng_l engthi 
soyrce.b i t^off set! 2 •« 7} 
target: ^cel l| 

target.l engthJ ill t$str ing.l engthj 
target. bit_off sets •• 7} 
VAR status? mft$error)| 

C FUNCTION t convert a C170 bit string C f ?> 6 of 8 forflsat) Into a 

CC180 bit string. Written at the request af the Fitj project. 

C 

€ Note that both source and target length are glve?^ in bits. 

C 

C When the source^l ength Is greater than the target^! ength* the 

Ctarget field is filled with the ieftroost bits of the source with 

Cno error status returned* 

€ 

i. When tar get^l ength Is greater than sour ce.J ength the target is 

Cright filled with zeroes. 

C 

C STATUS HLESBAO^PARAHETERS is returned i#han read-only parameters 

Care out of range* 
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3.5.30 MLP$170.T0.180.FL0ATING 



C ML0$78F - Declare ml p$170.to.l80_f I oati Tg > 



PROCEDURE CXREF1 m I p$170^to.ie0^f I oat i ng (source! '"cell? 
target! ^cell; 



sizeJ fill t$ft oat i ng^l efigttij 
VAR status s mtt%er ror) i 

C FUNCTIONS Convert a floating point numbar' In C170 notation (6 of 

Cformat) to a C180 floating point nufsber.^^r I tt an at the request of 

Cthe FMU project. 

i 

i STATUS HLE$8A0_PARAHETERS is returned >»hen9ver si ze is out of 

Crange* 

C STATUS HLE$INFINITE is returned when the C17D number has the 

Cexponent 3777{8I or 4000C8); the C180 vaiye returned is ♦/- INF» 

C STATUS Nli$INOEFINIT£ Is returned when the C170 number has the 

Cexponent 1777C8J or 6000(6) j the C180 value returned is +/- INOEF* 
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< M10$78I " Declare ral p$170_180_i nteger > 



PROCEDURE ilXREFJ mlp$170^to_180.i n teger (sojrce? *cell; 
sour ce_l ength: 1 •• 10? 
targets '^cel I ; 



tar get_l ength: ml t$integer_i ength; 
target^typeJ ml t$i nteger _type| 
VAR statyss ml tSer ror ) I 

C FliNCTION: Convert an Integer in C170 6 af 8 fonat to an Integer 

Cin C180 format. The target is atnays f ight-Jus t I f I ed with sign 

Cextension to the left* 

C 

C C170 negative zero Is represented as zero {0,!.0I on the C180. 

C 

C STATUS HiESBAD^PARAHETERS is returned i^heTever a read-only 

Cpararaeter Is out-of-r ange* 

C STATUS MLESIOSS.OF.SIGNIFICANCE Is returned wtien the C170 number 

Cis not representabi e as a C180 number of the specified length 

Cand type* Truncation at the left occurs to force-fit the 

Cremai nder • 
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i ML0$87B - Declare ml p$180_to.l70.bi nary > 



PROCEDURE CXREF3 fRlp$180.to.l70_binary (source? '"cell? 
sour ce^l ength? ml t $str Ing^l engthj 
sour ce_b i t^off sets •• 7j 
target: '^'cellj 



tar get^l engths si t $stf i ng^t engthl 
target. bit. offsets 2 .• 7; 
VAR status: iilt$error)| 

{ FUNCTIONS Convert C180 bit strings Cnon-ali g'^ed) ir^to C170 bit 

Cstrings Calso non-aligned) in 6 of 8 fornat. Written at the 

Crequest of the FHU project. 

C 

€ Note that both SaURCE.iENGTH and TARSET.IENGTH are in bits. 

C 

€ men TARGET.IENGTH is greater than SaURCE.IE^ST^> the target is 

Cright filled with zeroes. 

C 

C When SQURCE.LEMGTH is greater than TARGET.IEISTH, the target is 

Cfilfed with the leftmost bits of the sotirce. ^o error status is 

Crecorded. 

C 

C STATUS Ht£$8AD. PARAMETERS is returned whenever a READ only 

Cparanieter is out-of ~r an ge. 
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3.5.33 MLP$I80,TQ.170.FL0ATING 



C ML0$87F - Declare ml p$180.to.l70.f loati ig > 



PROCEDURE CXREF3 ffllp$180_to.l70.f i oat i ng (sources ''cell; 
target: '^cellj 
size: ml t$f I oati ng.l engthj 
VAR status: ml t$er ror ) 5 



C FUHCTXONs Convert a C180 floating point nijuber into a C170 

Cfloating point nuisber < In 6 of 8 forsiatl* ilfitten at the 

Crequest of the FWU project. 

C 

€ STATUS HIESBAD.PARAMETCRS is returned if size Is out of range. 

C STATUS MLe$UNO£RFiOW is returned when the C130 exponent Is too 

Csmall to be represented in C170 forroat* Zero Is returned as the 

Cvaiue of the C170 number* 

C STATUS HLESOVERFIQW is returned when the C18D exponent is too 

Ciarge to be represented in Ci70 format* The C170 value returned 

Cin the case is 37770000000000000000(81* or" 40000000000000000000I8 ) 

<if the C180 nufsber is negative* 

C STATUS HiE$IHFINITE is returned whenever* the C180 nuinber is +/- 

CINF* The C170 number returned will be 37770«»0C8> or 4000*.0(8)> 

Cr espect i y el y* 

C STATUS Hi€$IN0£FINITE is returned whenever the CI 80 number Is -»•/- 

CINDEF* The C170 number returned wIM be 177T0*I.0C8> or 6000. .0<8I* 

Crespect i vely. 
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€ ML0$87I - Declare ffllp$18G.to.l70_lnteger > 



PROCEDURE CXREF] mlp$180_to_170. I nteger (sources "ceHj 
source.iength: mlt$integer_length; 
sour ce^type: fnlt$integer_type; 
targets '*'cel 1 1 
target.Sength: 1 .* 10; 
VAR status: mlt$error)j 



i FUNCTIONS Convert an integer in C180 for^^tt Into an Integer in 

CC170 format C6 of 8|« The target field I s a l^ays r 1 ght- jus 1 1 f led 

Cviith sign extension on the left. Writte?^ at t^e request of the FHU 

Cproject* 

C 

C STATUS MLE$8AD.PARAMETERS Is returned whenever a read-only 

Cparameter Is out~of -range* 

i STATUS HiE$lOSS.OF.SISNIFICANCE is retiir>^ed whenever the C180 

CnuJHber is not represent abie In the speeiffed CITO foriRat. 

CTruncatlon occurs at the left of the source to force fit the 

Creiaal nder * 
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A1*0 TYPES ANO CONSTANTS FOR SUPPORT ROUTInIES 



The CMHL-def ined types and constants used In the Common Support routines 
and their specifications are described here as CY8IL declarations. 



Al.l MLTSBDP. LENGTH 



€ MIT8DPL — Declaration of ml t$bdp_l ength > 

CONST 

nilcSfnin^bdp.l ength = 0* 
ml c$roax_bdp_length * 38; 

Type 

ffll tSbdp^i ength = w I cSm in^bdp^l ength «• il sSfiwax^bdo^length; 
A1.2 HLTSBOP.TYPE 



C HLT80P — Oeciaratlon of n?! t$bdp_type > 

TYPE 

mItSbdp.type « Iml c$pacKed_unsl gned* ml c$P?»cked.'uns i gned^sl ack> 
ail c$packed_deciinal_s i gned# ml cSpacked.'deci fnal .Is I gned^sl ack^ 
ml c$unpaGked_uns i gnedf ml c$unp acked.tr a I f ! ^g^ho I f er I tH» 
ail c$yn pack ed.tr ail Ing.separate* ml c$u^?>acked_V% adlng^ho I I eri thf 
fslcS unpacked^ I eadi ng.separ ate* ml c$af oNanuner i c^ 
ml c$bl nary.uns ignedf mt c$blnary_s i gned» 

ail c$tr ansi at ed.p a eke d.s I gned» ral c$traTsl ated.aacked.sl ack> 
ml c$tr ansi ated^binar y.unsi gned* ml cStrans I atedjb inary.si gned) ; 
A1.3 HLTSCOIiPARE 



C MLTCQHP — Declaration of mItScompare > 

TYPE 

ml tScomp ar e « <ailc$equal* ml cSsource^ls.gr eater* mIcSunor dered» 
nn I c$ target^! s. greater ) ; 
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A1.4 MLT$OIGIT_STRING.l£NGTH 

Al.A MLTSOISIT.STRING.LENGTH 



a MITOSL — Declaration of ml t$di g I t.strl Tg.J sngth > 



CONST 

ml c$ml n^dl gl t_str i ng_l ength - Q* 



4- 



ffll c$ffiax_di gi t^stri ng_l ersgtli = 35; 

TYPE 

ml t$dl gi t.strl ng_l ength = ml c$mi n_dl gi t.str 1 firs^Hength •• 
m\ c$fliax_di gi t.st r i ng_l engthj 
.A 1,5 HLTtERROR 



C MLTERR — Declaration of iBlt$erfor > 



TYPE 

mltSerror « Cinl e$no_er ror* ?nl e$l nval i d.bdp J4at a» 

ffil e$l oss«of_s I gnif i canc€# faleSover f io^> m\ tSur^der f I om> 

ml e$ i ndef i n i te* ml e$inf I ni te» ml e$bad^'p*ir abaters > 
^1 a$no_dlg i ts) j 
A1.& HLT$eXPONENT.STYlE 



C HITES — • Declaratlor^ of ml t$exponent_styl s > 



CONST 

ml c$min_exponent_sty le = G# 
nil c$m3x_exponent_s tyl 8 « 6; 

TYPE 

ml t$exponent_sty I e = rn I c$mi n^exponent^styl e •• 
ml c$raax_exponent.sty I ej 
A1.7 HLTSfiOATING.IHPUT 



€ MLTFI — Oeclaration of wl t$f loatlng^lr^out > 
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Al«7 MLT$FL0ATIN6.INPliT 



TYPE 

ml t$f loati ng^input * array CI •• 1203 of call; 
Al,8 MLTSFLQATING^IENGTH 



4- 



4- 



C HLTFi — Declaration of ipI t$f I oating^length > 



TYPE 

ml t$ f I oat i ng_l ength * (ml c$singl e.preci si ofi» 

ml c$ do ub I e_p reel si ofiM 
Al,9 niTSFORMAT 



C HITFORM — Declaratiof> of mitSforaiat > 



TYPE 

ml t$ format * (ml c$f_styl e> i»l c$e_styl e# ulcSg^stylef 
ml C$1 1 st^di r ectedf luj cSnamel i st) 5 
AlUO HlTSFQRTRAH.iOGICAUlEHGTH 



C HLTFTtL — Declaration of ml t$f ortran^l a^ I cal _! sngth > 



TYPE 

ml t$ fortran^logi cal_l engtti « 1 •• 8> 



Al.il liiTSHANDlE.BlANKS 



C MLTHB — Declaration of ral tShandl e.bl anks > 

TYPE 

ml tShand I e^blanks « (m I c$ i gnor e.bl anks» •?!! c$stoo.on.bl ank? 
ml c$bl anks.equal.zer o) ; 
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A1.12 MLTSINTEGER.LENGTH 

Al,12 liLT$INTEGER.LENGTH 



-I- 



+ 



C HLTIL — Oeclaration of inl tSinteger.f erigth > 



CONST 

ml c$i^ax_integer_rengtli « 8; 

TYPE 

ml t$ integer^! errgth « ni IcSmin.lnteger^l eigth •• 
fol C$111 ax_integer_i ength; 
Al«13 HtT$INTEGER_TYPE 



C MLTIT — Oeclaration of iilt$lnteger_typs > 



TYPE 

ml t$lnteger_type « (ml c$sl gned^i nteger* i I G$unsl gned.i nteger I ; 
A1.14 HITSJUSTIFY 



C HLTJUST — Declaration of jnltsjustify > 



TYPE 

jnlt$justify « (ml c$l ef t.just i f y» ml c$rl qht. Justi f y ) 5 
Al«15 f1lT$N0H.0ECIHAL_8ASE 



C MLTNDB — Type declarations for numeric conversion routines > 



TYPE 

ml t$non_decl mal.base « (mlc$binary> mlc^octa1> ul c$hex adecimal > ; 
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AX. 16 MLTSOUTPUT.FQRMAT 

Al»16 MLTSaUTPUT. FORMAT 



+ 



+ 



i MLTOF — Declaration of «lt$output_for?iiat > 



TYPE 

ml t$oytput. format - record 
justi f icat JOfiJ i»i tSjusti fy^ 
signs IP it $s I gn_t re at pent* 
format? ml t$ for fit at* 
scat e_f actor s integer^ 
widths f«i t$str ing.l ength^ 
di gits s lal t$str i ng_i ength* 
exponant^char acters chart 
exponent.s ty le? mItS exponent .style* 

recend; 
Al,17 HLTSSIGH.TREATMENT 



C MLTST — Declaration of mItSsign.treat'neit > 

TYPE 

ml t$si gn.treatfflent - C a?! c$n?i nus. i f.negat i ve» wl c$ al ways.si gnedM 
A1.18 HLT$STRING.LENGTH 



C MLTSl — Declaration of ml t$str i ng_l engtti > 



CONST 

ml c$mi n.str i ng_l ength * 0* 
mlcSmax^strlng.length * 7f f f f f f f C16) 5 

TYPE 

ml t$str i ng.l ength = ml cSini n.str i ng.l ength •• 
ml cSmax.str I ng_l engthj 
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A1.19 HLT$VAX.FLOATING.TYPE 



A1.19 MLT$VAX_F10ATING_TYFE 



+ 



C HLTVXFT^ ^^ — Oeclaratlof5 of ml t$vax_f I oatl fig^type > 



TYPE 

ffll tSvax^floating.type » CflRlc$VAX_4.F.f I oati ^1 c$\f AX.S.D^f I oatt 
ml c$VAX«8_G_f ioat# ffilc$VAX_16.H.f I oat H 

A1.20 MLT$VAX.INT€GER.LEN6TH 



C HLTVXIL — Dec I ar at I on of ml tSvax.l ntegeri:! angth > 



CONST 

irI c$mln.VAX_integer_l ength « 1* 
ml c$max_VAX_ integer. I ervgth « 8; 

TYPE 

ml t$VAX_lntegef_l ength = f^l c$f8in_VAX_lrjteger.l ef^gth «• 
m\ c$?iiax.VAX_lnteger_l ength j 

Al«21 !ilT$yAX.LOGICAi_LENSTH 



C MITVXIL — Oeclaration of ml tSvax.l oglcaf .1 ength > 

TYPE 

ml tSvax.loglca l_l ength « {mlcSvax.l ogi ca t ^If ml c$ vax^l ogl cal_2> 
ml c$vax. log! cal_^) ; 

Al,22 HLTSVAX.PACKED^OECIMAL, LENGTH 



C MLTVXDL — Declaration of ml tSvax.packed.decl mal . I ength > 

TYPE 
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A1.22 MLTS VAX. PACKEO^OECIHAL. LENGTH 



I t$vax_packed_decli»al_l ength « 1 •• 19? 
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81,0 Cnni MATHEMATICAL ERRORS 



The error numbers and message templates far the CHHl Hath Library 
functions are contained in this appar^dllx. The function input 
par aroeterC si are displayed along with each error inessage* 



C HLC8EN — Definition of CHHL base error' nufwber > 



CONST 

nul c$base_err^num « 670000? 



i MLEACQS — Error numbers for ACOS > 



CONST 

ml e$acos_arg_i ndef « m ic$base_er r^num * 1» 
CF +N+P{-»-p). Argument Indefinite. 

ml e$acos_ar g^i nf * mlcSbase.err^num + ?> 
CF +N+P{+P>. Argument infinite* 

ml e$acos_arg_r ange = m lc$base_er r_num + 3 

if *H^?i*?)* Argument must be in range t-l .D» 1»D1 •> 



C MLEAINT — Error numbers for AINT > 



CONST 

ml e$alnt_arg_l ndef « m lc$base.er r_num ♦ ^» 
CF -i-N+Pt+P). Argument indefinite.} 

ml e$aint_arg_i nf « mlc$base.err_num + 5 
if +N+P(+P)* Argument infinite.! 
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C MLEAIN — Error nyrabers for AtOG } 



CONST 

ffll e$al og_arg_l ndef = n? IcSbase.er r^nue + 5» 
{.¥ +N+PC+PI* Argument ind€flnite«> 

ml e$alog_arg_i of « ml c$base_€rr_r»uin + ?» 
€F +N>PC+P)« Argument inflnlte.l 

oil e$alog_arg.O * ml c$base_€rr«nuffl ♦ 8f 
CF +N+PCO«0)* Argument fiust be > 0«0,> 

ml e$al og_arg_neg « nnlc$base.err.num + 9 
£F +N+Pt-«-PI» ArguJJient must be > O^O.l 



C MIEAIQG — Error numbers for AIOGIO > 



CONST 

ml e$al oglO.ar g.indef « mlcSbase.err^nun <- 10» 
if +H-»-P(+P)« Argument indefinite.! 

mi e$al oglO.ar g_i nf « mi c$base_er r_num + 11 » 
CF 4-N+P(+P)« Argument Infinite.! 

mi e$aloglO_arg_0 » mlc$base_err_num ■«■ !?> 
CF -»-N+P(0«0). Argument must be > 0.0. > 

ml e$ai oglO^arg.neg = m I c$base_er r^num + 13 
CF +N+P("i-P). Argument must be > 0.0. > 



i MIEAMOO — Error numbers for AMOD > 



CONST 
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ml e$aiiod_argl_i ndef * ml c$base_err_num + 14» 
if ^-N-i-FC argl* + P#arg2a + PK Argi i ndef Inl te*0 

ml €$3fliod_arg2.inclef « ml c$bas€_err«nui!i + 15» 
CF i^N*P{argl»4-p,arg2«+P). Arg2 Indefinite. > 

mi e$af!iod^argl_inf = wl cSbase.err^nup ^ 16» 
£F ^N^PCargl = '»'P*arg2«^P)« Argl infinite. > 

ffil e$aiiiodl_arg2. Inf « ml c$base_err_nuiB + 1T» 
CF *-N+PC argl = *P*af g2*'»-P)» Arg2 Inflnits.^ 

ml e$amod_arg2_0 = lal cSbase.err.nyw 4- l3f 

CF +N+P(argl»"i-Pfarg2*0*0). Arg2 must be naniarb.i^ 

m I e$amod^args_range = ml c$base_err_num *• 19 
CF +N+PCargl*+P»arg2«4-P)« Argl/arg2 inflnite.l^ 



C HIEANIN — Error numbers for ANINT > 



CONST 

ml e$anl nt^ar g^indef « ml cSbase.err^num + 20» 
CF +N^'P(+P). Argument Indefinite.} 

ml eSani nt_ar g_ Inf « ml c$base^err_num ■♦■ 21 
CF +N4-PC+P). Arg infinite.! 



C MIEASIN — Error numbers for ASIN } 

CONST 

ml e$as I n.arg^l ndef * m lc$base_er r^num + 22* 
CF ^-N+PC+P). Argument indefinite.} 

mi e$asin.arg_i nf « mlc$base_err_num + 2'5» 
CF ^-N+Pt+P). Argument infinite.} 
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nil eSasi n_ar g_r ange » ?alG$base_8rr_r^ufli ■■»■ ?A 

CF -i-l^+PC4-P). Argument mast be in range t-l*0»l«Ol.> 



C HL€AT4N — Error numbers for ATAN > 



CONST 

ml e$atan_af g_i ndef - !« IcSbase^er r^nu^a ^ 35 
CF +N+PC+P). Arguisent indefinite.} 



i MLEATN2 — Error numbers for ATAN2 > 



CONST 

ml e$atan2_ar gl^indef « mlcSbase^err^nun 4- ?6f 
CF •♦•N-i-P{argl*+P»arg2« + P) . Argl indefinite.} 

el e$atan2_ar g2_indef » mic$base.err_nai -»■ 27» 
CF +N+PC argl=+P>ar g2«4-p). Ar92 indefinite.! 

fBl e$atan2_ar gs«i nf * m lc$base_er r_num + 28f 

CF +N^PC argl*4-p, arg2« + PI . Botti arguments Infinite.! 

ml e$atan2_args^0 » ffllc$base_err.num ■*- 2.^f 

CF +N+P(O.Of 0.0) . One argument must be nanzerb.} 

fnl e$atan2_ar gs_r ange « fnic$base_err_nu!i^ + 30 

CF ■♦•N+PC argl«+P# ar g2« + P> . Arg2 must be zero if arql/arg2 

Ci nf inl te.> 



C MIEATNH — Error numbers for ATANH > 

CONST 

ml e$atanii_ar g.i ndef « ml c$base_err_num + 31f 
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CF +N+P<4-P). Argument indefinite.! 



CF +N+PC"fP)» Argument infinite*} 

lal eSatanh^ar g^range « ml cSbase^err.num <• 33 
CF +N*P(-»-P)» ASSCarguwent) inust be < l.D.l 



C HLECABS — Error numbers for CASS > 



CONST 

m! e$cabs_ar g_i ndef « w I c$base_er r^nujn ^ 3^f 
CF +N-I-PC (+P>+Pn • Argument indefinite.! 

!»le$cabs„arg_inf - iml cSbase^err^nuiB + 35> 
CF 'i-N + Pi <+Pf +P)). Argument Infinite.! 

ml e$cabs_resul t.inf » mlc$base_err.nup * 36 
CF +N+PC <+P*+P)) . Result infinite.! 



C HiECCOS — Error numbers for CCOS } 



CONST 

ml e$ccos_arg_i ndef « Bilc$base_err_nuni ^- 37» 
CF ^N+PC {+P*+PI). Argument indefinite.! 

wl e$ccos_ar g_i nf « m I c$base_er r^num + 33» 
CF -i-N+Pt (+P»+Pn. Argument Infinite.! 

ml e$ccos_rea l^range « ml c$base_err^num ^ 39* 

CF +N+PC <+P»+P)). ABSCreal part) must be < ^.**^7.! 

ffl I e$ccos_ifflag^too.bl g * mtcSbase^err.nun + ^0» 

CF +N+Prc+P*^Pn. Imag. part must be < h095.^imiZ) .J 

ml e$ccos_lmag_too_smal I * ml c$base_err.'^ui» + Al 
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CF +N+P<(+P,+Pn. Imag. part must be > -4095.*L3G C 2 ) .! 



C HLECEXP — Error numbers for CEXP > 



CONST 

ml eScexp_arg_ind€f « mlcSbase^err^nym 4- ^?# 
if +H^PU+P#+PII« Argument Indefinite.! 

11} e$cexp_ar0_t nf = ?pI c$bas€_err_nuffl •»• 43» 
CF+H+PC(*P* ■»-?))• Argument Infinite.} 

ml e$cexp.i aiag. range « mlc$base_err«nuii * ^4# 

CF •»-N+P<<+p,<i-P)), ABSCiffiag, part) must be < >.^*4T.> 

ml e$cexp^r ea l^r ange * lai c$base^err_num ^ %5 

CF 4-N-i-P( C+P,+P)). ABSCreal parti raust be < %D95.*L0G(2 1 . > 



C HtECLOG — Error numbers for CLOG > 



CONST 

ml eScJog.ar g«i ndef « m lc$base„er r.num + ^6» 
CF -i-N+PC C+P^-t-P)). Argument indefinite.! 

ml e$ciog_arg_l nf « ml c$bas€_er r_num 4- 47» 
CF 4N4-PC C-i-P^+PH. Argument Infinite.! 

ml e$clog^abs_arg_i nf « mlc$base_err_nuii ^ 43f 
CF +N+PC (+P#+P)). A8S{ argument) infinite.! 

ml e$cl og.arg.O « ml c$base_err_num + 49 

CF ^-N+PCO.O). One of real or imag. parts must be nonzero.! 



C MLECOS — Error numbers for COS ! 
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CONST 



CF 4"N<"PC+P}« Argument indefinite*! 

«l 8$cos_af g_inf * ?nl c$base_8rr_r»um + 51 » 
CF +N+PC+P). Argument infinite. > 

!bI e$cos_arg_range « fill c$base_err_nuii5 + 5? 

CF +N+PC^-P), ASS (argument) must be < 2.**47,> 



C HLECQSO — Error numbers for COSO > 



CONST 

ml e$cosd_arg_i ndef « w J cSbase^er r^num f ?,%7» 
CF ^N+p{^P). Argyment Indefinite.! 

mi e$cosd_arg_i nf « m IcSbase.err^nuia + 2%B» 
CF +N^-PC+PI. Argument infinite.! 

ml eScosd^ar g_r ange * m f c$base_er r_nu«a + ?49 
CF -i-H^PC+P). ABSCargument) fiiust be < 2.**«f7.> 



C MIECOSH -- Error nuswbers for COSH > 

CONST 

ml e$cosh_ar g_i ndef - m lc$base_er r_num + 53» 
CF +N+P(+P). Argument indefinite.! 

mi e$cosh_arg_i nf = ?nlc$base_err_num + 5%» 
CF +N+P{+P). Argument infinite.! 

mi e$cosh^arg_r ange « m IcSbase^er r^num + 55 

CF +N^-P(+P). A8S(arguwent) must be < 4095.*11G(?) .! 
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C niECmm — Error numtiers for CQTAN > 



CONST 

ml eScotan.ar g^indef « ml c$base_err_nun! + 254f 
CF +N*'P{+P|« Argument indef ini te.l 

ml e$cotan_ar g_inf « pl c$base_err_nym + ?55» 
CF -fN+PC+PU Argument infinite.} 

ffll eScot an^ar g_r ange « mf c$base_arr_nuii ^ 256> 
CF +N+P<+P>. ASSCargument) must be < 2.^*47.> 

ml eScotan^ar g_0 * lal cSbase^err.num + 255 
CF ^N+P(0»0>« Argument must be nonzero.! 
t 



C MLECSIN — Error numbers for CSIN > 



CONST 

ml e$csi n_ar g_i ndef = m lc$base_err_num + 56f 
CF ■i'N+P< C+P**P) )• Argument indefinite*! 

mi e$csin_arg_i nf « ml cSbase.er r^num + 5T» 
CF +N+P( (>P>+P)). Argument Infinite.! 

ml e$cs in^r ea l^range » mlc$base_err_num + 5 8» 

CF +N+PC (+P*-»-P)). ABStreal part) must be < 2.**<t7.> 

ml e$csin_lmag_r ange * ml c$base_err_num + 59 

CF +N+PU+P*-i-Pn. ABSCimag. part) must be < ^095.*L0G< 2) .! 



C MIECSQT — Error numbers for CSQRT ! 
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CONST 

ml eScsqr t.ar g_ Indef * mlc$base_err^num ^" 60> 
CF -t-N+PC <+P* +P ) I . Argument Indefinite.! 



isl e$cs<ir t_ar g.Inf « ml c$base„err .num + 6l» 
if *N+P{ i+P#*PH . Argument Infinite. > 

ml e$cs^qrt_ar i_range « fBlc$foase_8rr_nujfi> 62 

CF 4-IM4-PC {+?,♦? D, A8SC argufsent) * ASSCreal aar t> I nf in i te«> 



C HLEOACS — Error numbers for OACQS > 



CONST 

ml eSdacos^ar g_indef « ml c$base_err_nuin + 63» 

{F "i"N+P(^P)« Argument indefinite*} 

flsle$dacos_ar g_lnf « i«l cSbase.err^num + ^^» 

CF -i-N+PC+P). Argu^aent infinite.! 

ml eSdacos.ar g_r ange « ml cSbase.err^num ^ 55 

{F +N+PC+PI. Argument must be in range C-1.0fl.01.> 



C HIEOASN — Error numbers for DASIN > 



CONST 

ml eSdasi n^ar g^indef « ns! cSbase.err.num ^ 56> 

if 4-N+PC^-PI. Argui^ent indefinite.! 

All eSdasi n_ar g_ inf = ml c$base_err_nu!n ■♦■ 67* 

CF -fN^PC+P), Argument infinite.! 

ffli e$dasi n_ar g_r ange = mlcSbase^err^num ^ 58 

CF 4-N+P{+P). Argument must be in range C-1.0»l. 01,> 



CONTROL DATA CORPORATION - COMPANY PRI\fATE - Revision E 

81-10 
C180 Common Modules Mathematical Library CM'IL) F^S 

85/08/23 

81. CMML MATHEMATICAL ERRORS 



C MLEDATN — Error numbers for OATAN > 



CONST 



wi e$dat af^_ar g_lndef » ml c$foase_err_num f 59 



C MIE0TN2 — Error numbers for 0ATAN2 > 

CONST 

ffll e$datan2_argl_lnd8f » flilc$base_8rr_nijii <- TOt 
{f +N+P(argl = + P»ara2*'i-PU Argl Indefinite.! 

ml e$datan2.arg2_indef = ralc$base.err_ntii > 71> 
CF ♦N+PI argl* + P>ar g2»-«-P). Arg2 indefinite.! 

ml e$datan2_args_inf « ml c$base_ef r^num ^ lt-9" 

CF ^^H+Pi argl* + P»ar g2=*P) ♦ Argl and arg2 '^lay not both be infinite.! 

ml e$datan2_args_0 - ml c$base_err_num + 73 

CF +N+PC0»O*O«O). One of argl or arg2 msi^t be nanzero.} 



C MLSOCQS — Error numbers for DCOS } 



CONST 

mi e$dcos_ar g_l ndef * mlc$base_er r_num 4- T^, 
{F 4-N+P(+P)* Argument Indefinite*} 

ml e$dcos«arg.i nf « ml c$base_err.num + 75» 
CF +N+P(4-P). Argument infinite.! 

mi e$dcos_arg_r ange « m I c$base_er r^num + 76 
CF ^N+PC4-P). ABSCargument) must be < 2.**^7.! 
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C MLEDCSH — Error numbers for OCOSH ! 



CONST 



fR J e$dcosfi_ar g_i ndef « mlc$base_err„nufn *■ 77» 
CF +N+P(-»-p). Argument Indefinite.! 

ml e$dcost5_ar 9_inf « ral cSbase^err^num + 78* 
CF ^-N^PC+P). Argument infinite*} 

r»l e$dcosh_ar g_r ange = iiilc$t5ase_ef r.nu?B ^ 79 

CF +N*PC*P). ABSIarguwent) must be < 4095.^13^1?) . > 



C liLEODIN — Error numbers for ODI 



CONST 



mi e$ddiif!_argl_indef = ffl!ic$base_err_nuni + 30> 
CF 4-N+P( argl* + p,arg2«^-P). Argl indefinlte.> 

ro I e$ddi ?»_arg2_indef « ml c$base_err_nyiii ^ 31» 
CF +N+P< argl' + P» ar gZ*"*-?). Arg2 indefinite.! 

ml e$ ddi !B_argl_inf = fiil cSbase.err^num + 32* 
CF +N4-P( ar gl* + P> arg2=4-P). Argl infinite*! 

ml e$ddim^arg2_inf = ml cSbase.er r^num + 33» 
CF +N+P(argl«+P»ar g2«+P)* Arg2 Infinite.! 

ffll eiddlm.resul t^inf « ml c$base_err^num *■ 84 
CF +N+P{ argl-+P>arg2«+P). Result infinite.! 



C HLEOEXP — Error numbers for DEXP ! 
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CONST 



ml e$dexp_arg_i ndef * m I c$base„er r.num + 85» 
CF ♦N+Pt*P). Argument indefinite.! 

ml e$dexp_arg_i nf » mlc$base.err_num + 85» 
CF +N+P(+P). Argument Infinite.! 



ml e$fiexp_arg.too_bi g = ?iil cSbase.err _nuii + 87> 
if +N+PC+P), Argument must be < 4095«*L3SC 2> •> 

ml e$dexp_ar g^too^small « iilc$foase_err_r»tiii + 38 
if -i-N+PC-i-P). Argufflent must toe > '-4095«*10G< ^) •> 



C MiEDIM — Error numbers for DIH > 



CONST 

ml e$di j«_ar gl_i ndef * ml c$base_er r_num * ^9# 
if +N+PCar9l-+P#ar g2«+P) . Argl I ndef Inl te, > 

ml eSdiffl^ar g2«i ndef - mlc$base_er r^num + 9D# 
CF ^-N+Pi argl« + P*arg2» + PU Arg2 indefinite.!} 

ml e$dim_argl_i nf * ml c$base_err_num + 91 » 
CF >N4P( argl- + P»arg2» + P) * Argl infinite. i> 

ml e$dim_arg2_l nf « ml c$base_err_num + 92. 
CF +N+P(argl* + P»arg2= + P). Arg2 infinite.!} 

ml e$dim_resul t^inf » mlc$bas€_er r.num + 93 
{F +N+P( argl«-i-P»arg2«4-p)« Result infinite.^ 



i NIEOINT — Error numbers for OINT > 



CONST 

ml e$di nt.ar g«.i ndef » m I c$base_er r_num + 94> 
CF ♦N+P(4-p). Argument indefinite. > 
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ml e$di nt.arg^i nf - mlc$base.err_num + 95 
CF ^N-J-PC+P). Argument infinite.} 



EOLN — Error numbers for DLOG > 



CONST 



if +N+PC+P), Argumertt indeflnita«> 

ml eSdlog^ar g«i nf « laJ cSbase^err.nuw + 97, 
-CF ^-N+Pf+PI. Argufaent infinite. > 

role$diog_arg_0 == ?ii I cSbase.err.nuia + 98f 
If 4-N+PIO.OK Argufnent must be > 0*0«> 

fflle$dl3g_arg_neg » ml c$base_err_nuin + 99 
if +N+PC+P), Argument must be > 0.0*> 



C MieOLOG — Error numbers for DIQGIO > 



CONST 

(nl e$dloglO_arg_indef ^ ml c$base_err_nuTi + 103» 
CF ^-N^PC+P). Argyinent indefinite*! 

fBle$dioglO_arg«inf * flilcSbase.err.nuffl + lOl* 
CF +N+P<+P)« Argument infinite*} 

mi e$dloglO_arg_0 » nilc$base_err_num 4- 10?» 
CF ^-N+PCO.O) • Argument must be > O.O 

ml e$dioglO_arg_neg « fa lc$base_er r_nu«! + ID3 
CF +N-»-PC+P)« Argument must be > 0.0*> 
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C MLEDMQO -- Error numbers for DMQO > 



CONST 



ml e$dfflod_argl_ i ndef « mlc$base_err_num *■ 104» 
CF -fN+Pi argl'+Pjarga*-*-?)* Argl indefinite. > 

ml e$draod.arg2_l ndef « ml c$base_err.num ^ 105» 



CF +N+P{argl« + P»arg2=^P)« Arg2 I ndef In! te.^} 

ml e$dmod_argl«lof - ml cSbase.err^num + 19&» 
CF 4-H>PC argl» + P*arg2«>P). Argl infinite,^ 

fflt e$di»od_arg2«inf » ml cSbase^err^nuro + IDT> 
CF *N+PCargl* + Pf argZ^+P). Arg2 infinlte.lf 

ml e$dn!0d_arg2_0 « ibI c$base_err_ny!B + 103» 

CF +N+PI argl*+Pj arg2*0»O) ♦ Arg2 must be ?>9nzsro.^ 

B3l 8$dniod_args_r ange a aif c$base_err_oufli ^ 109 
CF ^N-i-PC argl«+P>arg2«^P) . Argl/arg2 ioffrjit«.§- 



C HLEONIN — Error numbers for DNINT > 



CONST 

ail a$dnint_ar g^indef « ml c$base_err_nuffi + 110» 
CF +N+PC+P>. Arguinent indefinite.} 

ffll e$dn int_ar g^inf = ml c$base.err_num ^ 111 
CF ^H^P{^?)m Argument infinite.! 



C HLEDPRD — Error nuiabers for DPRQO > 

CONST 

ml eSdprod.ar gl^indef « ml c$base_err.nuifi + ll2f 
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CF ♦N't-PC argl» + P>ar g2*^P) . Argl indefinite.} 

ml e$dprod_ar g2_indef » mlc$base_err_nun *• 113» 
CF +N+P( argl»+P#arg2s+p)« Arg2 Indefinite.} 

ml e$dpr od^ar gl^inf « m IcSbase.er r.num + ll^t 
CF +N+P( argl*+P>arg2«+P). Argl infinite.} 

ml e$dprod_ar g2_inf = m I c$base_er r^num *• 115» 
CF +N-»'PC argl- + P*arg2* + P) . Arg2 infinite.} 



CF +N4-PC argl» + P#arg2*+PI * Result inflnlte#> 



C liLEOSIN — Error numbers for OSIN } 



CONST 

ml 8$dsi n_arg_l ndef « m I c$bas€_er r.num + 117* 
CF -t-N-t-PC+P). Argument indefinite.} 

tal e$dsin_arg_i nf « rafc$base_er r.num ^ 11B» 
CF +N+PC*PK Argueent Infinite.! 

ml e$dsi n^arg^range * jh I c$base_er r^num + 119 
CF +N>»-P(+PI, A 8S( argument) laust be < Z.i'^AT.l 



C HIEDSNH — Error numbers for DSINH > 



CONST 

ffll e$ds i nh^ar g.indef « ml c$base„err_nuni ^• IZOf 
CF +H+PC+P). Argujaent indefinite.! 

ml e$dsi nh_ar g_inf » ml cSbase_err_nu!n + l?lf 
CF +H-»'P< "♦•?). Argument infinite.} 

pl e$dsinh_ar g_r ange » ml c$base.err_num ^ tZZ 

CF ^N+Pt+P). ABS(argument) must be < 4095.*LOS( 21 .> 
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C MLEDSQT — Error nuiabers for OSQRT > 



CONST 

ml e$dsqr t_ar g^indef « ml c$base_err_num + t?3f 
CF +N-*-P{4-p), Argument Indefinite.} 



ml 8$dsqf t^arg^inf « ml c$base_err^nun? + 12 ^f 
if +N+PC"i'P)« Argument infiriite»> 

mleSdsqrt^ar arrange ^ micSbase.err.nufii ^ 125 
CF +N+P(4-P). Arguiaent roust be >* 0.0. > 



C HLEOTAN — Error nuwbars for DTAN > 



CONST 

fsl eSdtan.ar g_i ndef - mlcSbase^er r^num + l?J>* 
if +H+PC+P). Argument indefinite.} 

ml e$dtan_arg_j nf = ml c$base_err_nuffi + 1?7, 
CF ^N-i-PC-^P). Argument Infinite.} 

ffll e$dtan^arg_r ange » mlcSbase^er r^nuis f 128 
CF ♦N+PI+P). ASSCargument) must be < 2.**^T.> 



C HLEOTNH — Error numbers for DTANH } 



CONST 

All e$dtanh_ar g^indef = wl c$base_err.nui *■ 129 
CF +N+P<+P). Argument indefinite.! 
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C MLEOTQO — Error numbers for DTQO > 



CONST 

«p1 e$dtod_argl_i ndef « ml c$base_err_nuin f I'^Ot 
CF ^N+P( argl = + Pf arg2' + Pr. Argl Indefinite.} 

ml e$dtod_arg2.i ndef « ml c$base^err_num ^ 13l» 



i¥ +N^PI argls-i-Pfarga^ + P)* Arg2 indefinite. > 

ml e$dtod_argl«inf * ml cSbase.er r_num + I32f 
CF +N^'P{argl* + P*arg2»4-p}, Argl Infinite.^ 

ml e$dtocl_arg2. inf - ml c$base_err_nuBi •♦' 133» 
CF ^-N+PC ar gl*+P*a^g2*^-P)• Arg2 infinite. i> 

ml e$dtod_f esu I t_lndef » plc$base_err_nufi * 134^ 

CF +N+PC argl=0.0#arg2«*-P) . If argl«0.0» irg? must be > 0.0. > 

ml e$dtod«af gl.neg « rai c$base.err_nyJB + 135» 

CF +H^P( argl«+P»8rg2»+P) • Argl must be >« 0.0.^ 

ml e$dtod_resul t^inf « nsl c$base_err_nuro + 136 
CF 4-N+PCargl="i-Pf arg2»4-P). Result Infinite. 1^ 



C HLEOTOI — Error nufibers for OTOI > 



CONST 

ml e$dtoi_af gl.indef « rolcSbase.err^nufn *■ 137» 
CF +N-i-PCargl« + P*arg2« + P)* Argl indefinite. 1 

mi eSdtoi _argl_i nf * ml c$base_err_nuffl + 138* 
CF 4-Ni-PC argl«+P*arg2« + P). Argl infinite.^ 

mleSdtoi^resui t.indef - nilc$base_err_niji! * 139> 

CF ♦N+PC argl*0.0>arg234-P) . If argl»0.0* arg2^ust be > 0.0. > 

ml eSdtoi _resul t_}nf * ml c$base„erf _nam + 140 
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CF +N-i-P(argl = + P»arg2«'»-P). Result infinite. > 



C MLEDTOX — Error numbers for OTOX > 



CONST 

ml e$dtox_argl_lndef « ml c$base_err_num f 141» 
CF +N+P( argl«+P* arg2«+P). Argl indefinite.> 



if ^mPlBrgl^^Pf^rgZ'*?} * Afg2 i ndef i ni te.l 

ml e$cltox_argl_inf » ml c$base_err_nye * r%3> 
Cl= ^H+P<argl« + Pf arg2«+P)« Argl Infinite. !> 

ml e$dtox_arg2.lnf * lal €$bas8_err_nufii + Ik^p 
CF +N+Plargl-+Pfarg2«4-p}. Arg2 Infinite. § 

ml e$cltox_resu> t^indef « ml c$base_err_niii *• 145f 

CF ^'N+P{argl«0»0>ari2*'»'P)« If argl*O«0# ar'g? must be > O.O.I 

mi e$<ltox_aril_neg « ml cSbase.err.rsum 4- l?h6> 

CF 4-N+P< argl«4'P#arg2'*P)« Argl myst be >« O.D.> 

ral e$dtox_resul t_lnf « ml c$fease_err_num »- 14^ 
CF ♦N+PC argl«+P*ar g2«+P). Result InflnltB*^ 



C MIEDTOZ — Error numbers for DTOZ > 



CONST 

ml e$dt02_argl_indef = ml c$bas€_err_num *• IA8# 
CF +N^P{+P#(+P,+P) ). Argl indefinite. > 

ml e$dtoz_ar g2_lndef * mlcSbase^err^num ♦■ 149> 
CF ♦N+PC+P^t+P^^P) ). Arg2 Indefinite.} 

ml e$dto2_argl_lnf « ml c$base_err_num -t- l^0# 
CF +N+P(+P# ( +Pf+P) ). Argl infinite.! 
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ml e$dto2.arg2_lnf « ml c$base.err_num + 151> 
CF -»-N+PC+P»{+P,"i-P) ). Arg2 infinite.! 

mi eSdtoz.r esul t.indef * ml cSbase^err^nun + 152* 
CF +N+P(0.0#(+Pf +P)). Arg2 must be > 0.').! 

ml e$dt02_ar gl_neg = ml cSbase.er r.num + 153* 
CF +N+P(+P#(+P*«i-P)). Argl must be >« 0.0. > 

ml e$dtoz_r esul t^inf » ml c$base_err_num f 154 
CF +N+PC+P,C+P#+P) ). Result infinite.} 



C MtEERF — Error numbers for ERF > 



CONST 

ml e$er f.ar g.ifidef « toI cSbase^err^num + 155 
CF -J-N+PC+PI* Argument indefinite*! 



C MLEERFC — Error nyiabers for ERFC > 



CONST 

!fi| €$er fc_arg_l ndef » ns lc$base_er r^nuw ■♦■ 156» 
{F +N+P( •*•?). Argument indefinite*} 

ml eSer f c^arg^r ange « lal c$base_er r^num ^• 18% 

if +N+PC+P). Argument laust be <» 53*037%219959898 *> 



C HLEEXP — Error numbers for EXP > 



CONST 
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ml e$exp_ar g_indef « ml c$base_err_num + 15?» 
CF -t-N+PC+P). Argument Indefinite*! 

ml e$exp.arg_inf = ml c$base_er r_num + 153> 
CF +N+P(4-p). Argument infinite*! 

ml e$exp_ar g^too^bi g » ml cSbase.err.num + 159* 
CF +N+P(<'P)* Argument must be < ^095.*nS( ?) «> 

ml e$exp_ar g^too.smal I » ml c$base_err_nuii f 1?>0 
CF +N+P<+P)* Argument must be > -4095.*L0SC 2J •> 



C HLEEXT6 — Error numbers for EXTB > 



CONST 

ml e$eKtb.argl_neg » ral cSbase.err.num + ?5T» 

CF -»-N*F(argl«4-Pf ar g2*4-p| . Starting bit irust be >= 0.} 

ml e$extb«arg?._neg = ml c$base_err_num + Z5Bf 

if ^-N+PC argl«^Pf arg2«+P) . lengtli wust ba >» ^.^ 

nil €$extb_argl_range « ml c$base^err_ny!ii * 259* 

CF +H4-P(argl« + Pf arg2 = + P), Starting bit nust be < 64,> 

nil e$extb_range - fslcSbase^err^nurn + 260 

CF *N-»-P< argl = *Pf ar g2«4-P) , Starting bit f Langtb must be <*64.> 



C MIEIOIH — Error numbers for IDIH > 



CONST 



ml e$ idliB^r esul t^inf « mi cSbase^err.nufii ^ I5t 
CF +N^P( argl» + P*arg2»4-p)* Aritf?nietic overflow. > 
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C MLEIDNI — Error numbers for lONINT > 



CONST 

ml e$ idnl nt^ar g^indef » ml c$base.err_num ^• 16?* 
CF +N+P(+P). Argument indefinite,} 

ml e$ idni nt^ar g.i nf « ml cSbase^er r^num ^ 163 
CF +N+P(+P)* Argument Infinite. > 



C MLEINS8 — Error numbers for INS8 > 



CONST 



ml e$ insb^argl.neg « ml c$base_err_num + ?5l» 

CF +N+P( argl-"»-P>arg2 = '«-P>. Starting bit lust be >* 0.> 

ml e$ insb^ar g2_nei = ml c$base.err_riuu! + 35^* 

CF -t-N+PCargl^+F^argas^P). Length raust be >« D«> 

ffll e$ insb_argl_range « i«lc$foase^err.nuni 4- ?63# 

CF -i-R+Ptargls + P^argas+P)* Starting bit nust be < 64.1 

ml e$ Insb^range = ml cSbase.err^num + 264 

CF '»-N-t-PCargi*'»-P*arg2»'i-P)« Starting bit <- Length 'itust be <«64«> 



C HLEITOD — error numbers for ITOO > 

CONST 

ml e$ itod_arg2_in(Jef « rol c$base_err_nuiu ^ 164» 
CF -t-N-^-PCargl^ + Pfar g2*^-P) . Arg2 indefinite.! 

ml e$ Jtod^arg2_lnf - ml c$base_err_num + IhSf 
CF +N4-P( argl3 + p,ar g2*+P)« Arg2 lnfinite«?> 

ral e$ i tod.r esul t^lndef - ml c$foase_err„nun + 156* 
CF ^N+P( arglaO*arg2«+P )* Arg2 must be > O.D,> 
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in I e$ i tod^argl^neg « ml cSbase.err.nunu + 167* 

CF +N+P( argl«+P*ar g2«+P) . Argl must be >« 0.a.> 



wi e$ i tod_r esul t_inf « rol c$base_err_num + 166 
CF +N4-PC argl» + Pf arg2« + P). Result infinite.! 



C MLEITOI — Error numbers for ITOI > 



CONST 



ml e$ i toi _r esul t_inf » ml c$base_err_nu!ti f 169> 
CF +N4-P< argi- + Pf arg2- + P). Arithmetic over'flos^.! 



!Til e$l tol _r esul t_indef « silcSbase^err^nuii ^ 170 
If +N+P(argl«0*arg2~-i-P). Arg2 must be > 0.0.1 



C MIEITOX — Error numbers for ITQK > 



COHST 

fli! e$ltox_arg2_lndef « wlc$base_err_nuin + 1?1» 
CF +N'»-PCargl = + Pfarg2« + P). Arg2 indefinite.^ 

ffli e$ j tox_arg2_i nf * ml c$base_err_nu^ + V^Zf' 
<F +N+P{ argl= + ?#arg2« + P). Arg2 inflnite.i> 

ml e$ J tox.resul t.lndef ~ ml c$base_er r^nui + 173> 
CF +N■^P< argl«0*arg2«+P )* Arg2 must be > 0.0.> 

ml e$ itox_argl_neg « ml cSbase.err _num + 17%> 

CF ♦N+PCargl*+P*arg2»+P). Argl must be >* 0.0. > 

ml e$ itox_resul t_inf » ml c$base_err_nym ♦• 175 
CF +N+P< argl« + Pf ar g2a4-p). Result infinite. !> 
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C MLEITQZ — Error numbers for ITOZ > 



CONST 



ml e$ It02_arg2_i ndef » ml c$base_err_num ^ 176* 
CF +N+P<+P»C+P>+P) ). Arg2 indefinite.! 

ml e$ I toz_arg2.lnf « ml c$base.err_num + 177f 
CF 4-N+PC+Pf <+P#+P)>. Arg2 infinite.} 

ml e$ ito^_r esul t.indef ^ ml c$base_err_nui! ^ 17B> 
CF +N+PCOj (+P, *P)) . Arg2 must be > O.O.I 

ml e$ itoz_r esul t^inf = ml c$base_err_num ^ 179» 
CF +N+PC^-P*(+P^+P) ). Result infinite.) 

mle$ I toz_argl_neg « ml c$base_err_num + ISO 



if -^mPi^Pfii^Pf+P))* Argl roust be >= 0.0«> 



I MLEHOD — Error numbers for MOO > 



CONST 



ml e$fliod_ar g2_0 = ml cSbase^err.num + 181 

if +H+P ( argl* + Pf arg2aO). Arg2 must be rtxinzBro»y 



i MIENIHT — Error numbers for HINT > 



CONST 

ml e$nint_arg_i ndef = ii lc$base_err_nuii» + IBZf 
CF '♦•N^PC+P), Argument indefinite.} 

rnl e$nlnt_arg_l nf * mic$base.err_num + 18B 
{F +N-I-PC+P). Argument Infinite.! 
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i MLESIN — Error numbers for SIN > 



CONST 

mle$sln_arg_indef « ml c$base_err _num + 1 65* 
CF +N+P(4-P). Argument indefinite.! 

ml eSsin^ar g_i nf « ml c$base_err_num + IS'S* 
CF +N+P{^-P). Argument infinite.! 

ml e$si n^ar g.r ange « ml c$base_err_num + 187 
CF +N+P('»-P). A8S<argument) must be < 2.*»«f7.> 



C HLESINO — Error nyiabars for SINO > 



CONST 

isl e$srnd_arg_i ndef « !!ilc$base_err_nusi + 2^4* 
CF 4-N+PC+P). Argy^ei^t indefinite*! 

ml eSsind.ar g_i nf = mIcStsase.er r^nuis + 3^5^ 
CF +N+f>C^P), Argymertt infinite.! 

ml e$sind_af g.range = «ilc$base^err_num + 246 
CF +N4-PC+PJ. ABStargument) must be < 2.**^?,> 



C MLESINH — Error numbers for SINH > 

CONST 

ml e$si nh.arg.i ndef = m lc$base_er r_num ^ IB8> 
iF +N4-P(+p), Arguaient indefinite*! 

mi €$sinh^arg_i nf « iBlc$base_err_num + 189» 
CF "J-H-i-PC fp). Argument infinite.! 
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8j| eSsinh.arg^r ange » m lc$base_er r.num + 190 

CF +N+P{+P). ASSCargument) must be < 4095.*L1G(?> .! 



C MLESQRT — Error numbers for SORT ! 



CONST 

ml e$sqr t.arg.i ndef = m lc$base_er r^num + 191> 
CF +N+P(+P). Argument indefinite.! 

ml e$sqr t_ar g_l nf = mlcSbase^er r^num -t- l9Zf 
CF -J-N+PC+P). Argument infinite.! 

ml e$sqr t_ar g_neg » ml c$base_er r_num + 191 
CF +N+Pi^P). Argument must be >» O.O.! 



C MLETAN -- error nui^bers for TAN > 



CONST 

m! e$tan_arg_indef * ml c$base_erf ^nufn •»• 19^# 
if ^N+P<+P)« Argument indefinite. > 

ml eStan.ar g^lnf =» »l cSbase^err ^num + 195# 
CF +N+P(+P)* Argument infinite»> 

ml eitan.ar g^range - ral cSbase.err^num + 195 
CF ^N+P<^P), A 8SC argument I must be < 2.**^?*> 



C HLETANO — Error numbers for TANO > 

CONST 
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ml e$tand_arg_i ndef « m I cSbase^er r.num ^ 250» 
<F +N-»-P(+PK Argument Indefinite*! 

ffll e$tand.ar g_i nf * ml cSbase.err.num + ?51» 
CF +N+P(+P). Argument infinite.} 

ml e$tand_arg_r ange « m I c$base_er r.num + Z5Z9 
if +N+P<+P). ABStargument) must be < 2.**47«> 

ml e$tand_r esul t.inf » ml cSbase.err^num ^• 253 

CF ■♦-N+PC+PI* Argument roust not be an exact old nultlple of 90.0.> 



C MLETANH — Error numbers for TANH > 

CONST 

ml e$tanb_arg_i ndef « mIcSbase.er r_num * 197 



CF +N+PC'*-P)« Argument Indefinite*! 



€ MIEXTQO — Error numbers for XTQO > 

CONST 

ffll e$xtod_argl_inc!ef « ml c$base_err_nam ^ I93f 
if ♦N+P<argl«+P>arg2«+P) . Argl indefinite,^ 

ml e$xtod^arg2. indef = ibI c$foase_err_nufii + 199> 
CF ^M+PC argl»4>p,ar g2» + P) • Arg2 i ndef Inl te,^^ 

ffil e$xtod_argl_lnf * ml c$base_err_nu!ii + ZOO* 
if ^-N+P< argls^-Pfarga^+P)* Argl infinite. i> 

wi e$xtod_arg2_ i nf * ml c$base_err_nufR + ?01* 
CF +N+P( argl«^P*arg2*+P)* Arg2 Infinite.^ 

ml e$xtad_resui t^lndef = mi cSbase^err^mji 4- 2D2» 
CF >N+PC argl«0.0#arg2«+P) * Arg2 must be >« 0*0. > 

ml e$xtod_argl_neg * ml c$base_err_num + 20%*' 
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CF ^-N-i-PC argl-+P*ar g2«'»-PI. Argl must be >« 0.0.> 

ml eSxtod^r esul t_lnf = ml c$base_err_num f 204 
CF +N+P< argl« + Pf arg2«<-P) . Result infinite.! 



C MLEXTOI — Error numbers for XTOI > 



CONST 

ml e$xtoi _argl.i ndef * ml c$base.err_num *• 205» 
CF +N+P<argl=+P*arg2«+P). Argl Indefinite.! 

ml €$ xtoi _argl_i nf * ml c$base.err_num + 2D6» 
CF +H+P< argl*-»-P>arg2«-*-P) . Argl infinite.! 

ml e$xtoi_r esul t.indef - ml cSbase^er r^nun ^ Z07 * 
CF +N+Pt argl»0.0»arg2«+PI . Arg2 must be >« 0.! 



!iil e$xtoi_r as u I t^inf * ml cSbase^err^num ♦• ZOB 
CF +H+PC argl«+P^arg2»+PI • Resuit infinite.! 



i HieXTOX — Error numbers for XTOX } 



CONST 

ml e$xtox_argl_indef « wl c$base.err_nuni + ^09» 
CF +N<'PC argl»+p,arg2*+PI • Argl Indefinite.*} 

wl e$xtox_arg2_indef » ml c$base.err_nu!B ^ 210» 
CF -i-N+PC argl'^-PfargZ*"*-?) # Arg2 Indefinite.} 

ml e$xtox_argl.i nf « ml cSbase.er r^num * 211* 
CF +N4-P{ ar gl« + P#ar g2«+P). Argl infinite.!} 

ml e$xtox^arg2_inf « ml cSfoase.err^num + 212* 
CF +N+PC argX=+Pjarg2«4-PI« Arg2 infinite.} 

in I e$xtox^r esul t^indef « rolc$base_err_niiTi + 213» 
CF ♦N+PC argl»0.0*arg2=+P) . Arg2 must be > 0.0.} 
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ml 8$xtox_ar gl.neg = ml c$base_err.num + ?1^> 

CF ^N+P{ argl«>P* arg2«+P). Argl must be >* 0.0.} 

ml e$xtox_r esul t^inf » ml c$base_err_nuro f ?19 
CF +N'»-P{ argl^ + Pf arg2=+P). Result infinite.} 



C HLEXTQZ — Error numbers for XTOZ } 



CONST 

ml eSxtoz.ar gl. i ndef » mi c$bas€_err_num *■ 216» 
CF -t-N+POP^C+P^+P) ). Argl indefinite.} 

ml e$xtoz^arg2.indef » mic$base.err.num * Zllf 
CF +N4-P(+P,(+p,+Pn. Arg2 indefinite.} 

ml e$xto2_argl_inf * ml c$base_err_num + ?1S» 
CF +N+P(+P,(+Pf +Pn. Argl Infinite.} 



ill e$xtoz_ar32_tnf « ail cSfease^err^nui -»■ 21*?? 
CF +N^PC4^P*C^P*+P)). Arg2 infinite*! 

lal e$xto2_resul t^indef * ifilcSbase^err^nui 4- 2;!0f 
CF ♦N+PCO.O* < + P><-P)). Arg2 must foe > 0,D.> 

ml eSxtoz^resul t^inf = lal c$l>ase_err.num <■ 2?1 
CF +N+PC+P#C^-Pf ^PH* Result infinite.! 



i HLEZTQO — Error numbers for ZTQO > 



CONST 

flil e$2tod_argl_lndef « !iilc$base_err_nufr? ^• ZZZ9' 
if +N+P{ (+P#4^P>>+P)* Argl indefinite*! 

nii eSztod^ar g2_indef « ral cSbase.err^nufn + ZZ^f 
if ^^N+P( (+P#+PI*+Pr. Arg2 indefinite*! 
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fill e$ztod_ar gl_inf « ml c$base_er r_num + ?-^4> 
if +N'i-P( (4-P>+P)*+P)« Argl infinite.! 

f?5l e$2tod_arg2.inf « ml c$fease_err_nufn + ?25f 
CF +N^-P{ {+P#+P)#+P). Arg2 infinite.! 

ml e$ztod_r esui t.indef « ml c$base_err_nui + ZZbf 
if +N+P<0.0# +P). Arg2 must be > O.O.! 

ml e$2tod_r esul t_inf » ml c$base_err^nu(n + 227 
CF 4-N-J-PC{+P,+P),+P)* Result infinite.! 



C MLEZTOI — Error numbers for ZTQI ! 



CONST 

mi eSztoi _ar gl^indef - ml c$base.err_num *■ ZZHf 
CF +N+PCI+P^+P)^^P). Argl Indefinite.! 

mle$2toi_argl_lnf « ml c$base_er r_num + 229> 



if +N+P< C+P*+P)>+P)« Argi inflnlte«> 

ml eSztoi _resul t_!nf » ml c$base_8fr_num *• ;?3D» 
CF ^m?H*9,^P)f^?)M Result jnflnlte»> 

nil eSztoi^resul t_i ndef « ml c$base_err_nui + ?3i 
CF +N"H>(0«Of 4-p). krgZ must be > O^O.} 



C HLEZTOX — Error numbars for ZTQX > 



CONST 

ml e$ztox_argl_indef « ihI cSfease^err^num 4- 232# 
CF 4^N+PC C+P>4-P)#+P). Argl Irtdef I nl te,> 

m I e$2tox_arg2_lndef « mlcSbase.err.num 4- ?3"5» 
CF ^N+P{ C4P,-»-p|,+p)« Arg2 indefinit€«> 

ml e$ztox_argl_inf * ml cSbase.err _num -i- ?3^» 
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CF +N+P( C+P*+P)*>P)« Argl Infinite.} 

ml €$ztox_ar g2_inf » ml c$base_err_num + 335^ 
CF +N+PC C+P#+P)>+P). Arg2 must be > 0.0, > 

ml e$ztox_r esul t^lndef « ml c$base_err.fiuiii + 236» 
CF +N'»'P(0.0#+P). Arg2 must be > 0.0. > 

ml eSztox.resul t^inf = ml c$base_err_num 4- 237 
CF +N+P( C^-Pf +P)*'»-P). Result Infinite. > 



C HLEZTOZ — Error numbers for ZTOZ } 



CONST 

ml eSztoz.argl.indef « ml c$base^err_num *• 233f 
CF 4-N4-P{<+p,+P),{ + p,+pn. Argl indefinite.! 

ml eSztoz.ar g2_ indef = mlc$base.err_num f 239» 
CF -t-N+PCi+Pf +P)» ( + P*+P)) . Arg2 indefinite. > 



if ^H*PH*99^P)fi*?f^?)* Argl infinite.! 

inle$ztoz_arg2_inf * ml c$base_err_num + ZMf 
CF -i-N+P(C+P>+PI#C4.p,+P)), Arg2 infinite,!} 

ml e$2to2«resul t^indef « aslcSbase.err^nuii ^- 2^2? 
CF +H+PCO,Of C^P>+PII* Argl must be nonz9fo.> 

ml e$ztoz_r esu I t.inf « mlcSbase^err^nufii 4- 243 
CF +N+PCC+P*+PI#<^-P»+P)5, Pesylt infinite. > 
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Cl.O HAOIFY TO SCU CONVERSION 



The fo! lowing is a listing of the file used to convert the CHML 
coror!?on deck PL frow HAOIFY to SCU format. 

0LD^NAME«i1LC8EN NN'f1LC$BAS£.ERR.NU?1 iN«^LCBEN 

aL0.NAM£»l1L0S733 NN»HLP$170.T0_180.B INARY ^M«iLD$78a 

QL0_NAIiE«f1L0$78F NN«MLP$170.T0_180.FL0ATING »1N-^L0$78F 

0LD_NAME*ML0$78I NN»HLP$170«T0.180.INTEGER ^N*^1L0$78I 

0LD_NAME*nL0$87B NN=MLP$180_TQ_170.8 INARY 1M«^L0$87B 

QLD_NAME«iiL0$87F NN*MLP$13 0_T0.170_FL0ATIN9 ^N*ML0$87F 

0LD.NAH€*ML0$87I NN«HLP$180_T0.170_INTE6€R ^N«^L0$87I 

0L0.NAME=HL0$80P NN»MLP$BDP,CONVERS ION ^1?^ = ML0$80P 

QLD_NAME«ML0$8IT NN'MLPSBITS.TO^ANO.FRQW.BO? ^M«^LD$8IT 

OLO.NAHE*MLO$CCI NN«HLP$COHPARE.COLL ATED MN«^LO$CCI 

QLO^NAHE»MLO$CF NN*MLP$COMP ARE. FLOATING iN'^^lOSCF 

OLD_NAHE=MLO$CFI NN«MLP$CaNVERT«FL0AT.TQ.mri=5P MM«iLO$CFI 

aLO.NAME«HLD$CFN NN«MLP$CaHPUTE_FL0ATING.NiJ^3ER 1M*iLD$CFN 
QLO.NAH£=MLD$CIF NN'^MLPSCQNVERT.INTEGER.TQ.PiOAT MH'^HLOSCIF 

OLD_NAHE«MiO$CMN NH=HLP$CQMPARE.BDP ^N«1LD$CHN 

aLO.NAM£«HlO$CaM NN»HLP$C0MPAR£^8YTES ^N«iLO$COM 

0LD.NAHE«ML0$I3N NN=HLP$INPUT_8ASe.NUH8ER HN*^LO$IBN 

OLO.NAHE*MLO$IFM NN*MLP$ INPUT.FLOATIHG.MANTIS S A H^««1L0$IFM 

OLO^NAHE^HLDSIFN NN«HLP$ IHPUT^FLOATINS.NUHSE^ ^N*iLD$IFN 



OiD.HAH£«MLO$II NN*I1LP$INPUT. INTEGER ^N«1LD$II 

OLO_NAHE»MLO$IUO NN^HLPSI^IPUT.UNP ACKEO.DECIM AL ^M = 11D$IUD 

aiD^NAfie«HLD$HQ¥ MN«HIP$H0¥E.8YTES H^»1L0$H0^ 

0LD„NAnE=HL0$Q8N NN'=MLP$OUTPUT_8AS€_NUf18ER HN^iLOtOBN 

Oll}«HAHE=HLD$QFO HH*HLP$OUTPUT_FLQAT IHG.DIGITS ^N*iiO$OFO 

OlO.NAIiE*l1LD$QFN NN^HlPiOUTPUT^FLQATING^HUH^ER MN«MID$0FN 

QLO.NAHE=«MiO$QI NN=MLP$QUTPUT^INTEGER HN*^10$0I 

OLO_NAH€*HLD$RFH NH*MlP$RaUNO_FlQATING«Ny?IBER !^H = MLO$RFN 

aLO_NAHE«HLO$SCA HN=HIP$SC AN. BYTES HN = »1tO$SCA 

aLD_NAHE=MlD$SFN HN^HLP$SC AlE^FLOATING.NiiHSSR MN«*1tD$SFH 

01D.NAM£«ML0$T£X NN^MIPSTEST.FOR. EXCEPTION HN'^ilDSTEX 

OLD.NAME«HLO$TRA NN«HiP$TR AH SLATE, BYTES iM«sitO$TRA 

01D.NAH£«HL0$TYP NN«HLt$ALl.CHHL. TYPES ^^^'^LDSTYP 

OtO.NAHE«MLOECC NN««LE$EXCEPTI0N.C0N0ITI0^.:30ES Hfl^HLOECC 

QtD^NAME^MlEACQS NH^MLESACOS ^N=MLEACOS 

OLD.NAM£=!it£AINT NN=MLE$AINT MM«HLEAINT 

QLO_NAHE*MLEALN HN«HiE$ALOG HM^^LEALN 

OiO.NAHE*HL£AlQG HN=ML€$AL0G10 HN'^^LEALOG 

OIO.NAHE^HLEAHOO HN^MLESAHOO iN«ilEAMOD 

OlO,NAME«f1lEAHIN NH=MIE$ANINT ^N»ilEANIN 

QLO_NAHE«ML£ASIN HN-MLE$ASIH ?1?4 = »1LEASIN 

01D,NAM£«MLEATAN NN=HIE$ATAH HM=MIEATAH 

0LD_NAHE=ML£ATN2 NN«Ml£$ATAN2 MN*mEATN2 
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OLD. 

OLD. 

OLD, 

OLD. 

OLD. 

OLD, 

OLD. 

OLD, 

OLD, 

OLD. 

OLD. 

OLD. 

OLD. 

OLD. 

OLD. 

OLD, 

OLD. 

OLD. 

OLD. 

OLD. 

OLD 

OLD, 

OLD. 

OLD. 

OLD, 

OLD. 

OLD. 



.NAHE 
.NAHE 
.NAME 
NAME 
,NAHE 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
NAME 



aMLE 
*HLE 
«MLE 
«MLE 
''MLE 
«MLE 
*MLE 
»ML£ 
«MLE 
»MLE 
«ML£ 
«MLE 
«MLE 
«MLE 
«ML£ 
*ML£ 
«MLE 
*ML£ 
«MLE 
«ML£ 
^MLE 
«ML£ 
*MLE 
»MLE 
«ML£ 
=MLE 
«MLE 



ATNH 

CABS 

CCOS 

CEXP 

CLOG 

COS 

COSO 

COSH 

CSIN 

CSQT 

DACS 

DASH 

OATN 

OCQS 

DCSH 

ODIM 

DEXP 

DIM 

DINT 

DLN 

OLOG 

DMOD 

DNIN 

DPRD 

DSIN 

OSNH 

DSQT 



NN=ML 
NN«ML 
NN«ML 
NN=ML 
NN*ML 
NN'^ML 
NN«ML 
NN=ML 
NN^ML 
NN»ML 
NN=ML 
NN=«ML 
NN»ML 
NN=ML 
NN*ML 
NN«ML 
NN«ML 
NN«ML 
NN»ML 
HN»ML 
NN«ML 
NN*ML 
NN = ML 
NN-ML 
NN»ML 
NN*ML 
NN=ML 



ESATANH 

E$CA8S 

E$CCOS 

£$CEXP 

ESCLOS 

E$CQS 

E$COSO 

€$COSH 

EiCSIN 

ESCSQRT 

ESOACOS 

E$DASIN 

E$DATN 

E$DCOS 

E$OCOSH 

ESDOIM 

ESDEXP 

ESDIM 

ESDINT 

E$OLQG 

ESDLQGIO 

ESOMOD 

ESDNINT 

ESDPROO 

£$DSIN 

E$OSINH 

ESDSQRT 



MN~ML 
MN«'^L 
iN»^L 
MH«^L 
MM«ML 
MM«iL 
HM«iL 
MN«»1L 
iM = »1L 
^N*iL 
MN*iL 
MN = iL 
'IM'^L 
itl«iL 
1N«1L 
1N*iL 
1N«ML 
MN«iL 
MM»ML 
i^l«1L 
iN*ML 
MN«*^L 
MM«iL 
MN«^L 
MM»ML 
MN*iL 
1N«iL 



EATNH 

ECA8S 

ECCOS 

ECEXP 

ECLOG 

ECQS 

ECQSD 

ECOSH 

ECSIN 

ECSQT 

EDACS 

EDASN 

EDATN 

EDCOS 

EOCSH 

EDDIM 

EOEXP 

EDIM 

EDINT 

EDLN 

EDLOG 

EDMOD 

EONIN 

EOPRD 

EDSIN 

EDSNH 

EDSQT 



aio. 

OLD, 
010. 
010^ 
OLD, 
OLD. 
OLD, 
OLD. 
OLD, 
OLD, 
OtO. 
010. 
OLD. 
OLD. 

aio, 

OLD, 
OlD, 
OLO. 
OLD. 
OLO, 
OLO, 
OLD. 



.NAME 
.NANE 
.NAME 
.NAHE 
.NAHE 
.NAHE 
.NAME 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAME 
.NAHE 
.NAHE 
NAHE 
.NAHE 



*ML€ 
=HL£ 
«HLE 
=HLE 
«MLE 
»HLE 
=MLE 
«HL£ 
=HL£ 
*HL£ 
■»HLE 
«HLE 
»HLE 
=HLE 
«HL€ 
*HLE 
-HLE 
= HL£ 
«MLE 
«HLE 
«HL£ 
«HLE 



OTAN 

DTH2 

OTNH 

DTOD 

OTOI 

OTOX 

DTOZ 

ERF 

ERFC 

BtP 

lOlM 

lONI 

ITOO 

ITOI 

IT OX 

ITOZ 

HOD 

HINT 

SIN 

SIHD 

SXNH 

SORT 



NN^^HL 
NN= HL 
NN«HL 
NN=HL 
NN=HL 
NN«HL 
NN«HL 
NN=HL 
NN==HL 
NN*HL 
NN* HL 
NN'HL 
NN*HL 
NN=HL 
NN^ML 
NN«HL 
NN«HL 
NN=HL 
NN'ML 
NN^HL 
NN«HL 
NN«HL 



ESDTAN 

ESOATANa 

ESOTANH 

ESOTOO 

ESOTOI 

E$OTQX 

ESOTOZ 

E$£RF 

ESERFC 

E$EXP 

esioiH 

ESIONINT 

e$ITQD 

E$ITOI 

ESITOX 

ESITOZ 

E$HO0 

E$NINT 

£$SIN 

ESSINO 

ESSINH 

ESSORT 



1M«HLEDTAN 


iN = 


^ILEDTNZ 


m^' 


^^LEDTNH 


1H«1LeOTQO 


MN' 


«»1LEDT0I 


^H«HLEOTOX 


HN^HilOTOZ 


HN« 


^HLEERF 


MN*iLEERFC 


IN'HLEEXP 


m-' 


'HLEIOIH 


nn- 


^^LEIONI 


MN' 


^MLEITOO 


H^s 


= MLEITOI 


HH'- 


rHLEITOX 


m^ 


^HLEITOZ 


m-' 


«iLEHOO 


HH' 


'^LENINT 


^N- 


'^LESIN 


i^«iLESINO 


m^ 


'1LESINH 


HN«HLESQRT 



CONTROL DATA CORPORATION - CI^^A^Y PRIVATE - Revision E 

Cl-3 
C180 ConjiBon Nodules Hatheraat I cal Library (CHHL) ERS 

85/08/23 

C1«0 HADIFY TO SCU CONVERSION 



OLO, 
OLD, 
OLO. 
OLD. 
OLD, 
OLO. 
OLD. 
OLO. 
OLD, 
OLD, 
OLD. 
OLD. 
OLD, 
OLO. 
OLO. 
OLD, 
OLD, 
OLD. 
OLD. 
OLD. 
OLO. 
OLD. 
OLO. 
OLO. 
OLD. 
OLD, 
OLO. 
OLO. 



.NAHE 
.NAHE 
.NAHE 
.NAH£ 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAHE 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAHE 
.NAME 
.NAME 
.NAHE 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 



=HLETAN 

«ML€TANO 

-HLETANH 

«HLEXTOD 

»MLEXTQI 

^HLEXTOX 

»HLEXTOZ 

*HLEZTO0 

'MLEZTOI 

«HLEZTQX 

«ML£ZTOZ 

«HLPA8S 

*HLPACOS 

•HLPAIHG 

•HLPAINT 

'MLPALQG 

=HLPAHQD 

»MLPASIN 

*MLPATAN 

•HLPATN2 

^HLPATNH 

»MLPCABS 

»HLPCCaS 

=HLPCEXP 

«HLPCLQG 

«MLPCNJG 

*HLPCQS 

«HLPCQS0 



NN'HL 
NN« HL 
NN*HL 
NN«HL 
NN«HL 
NN»ML 
NN«HL 
NN»HL 
NN«ML 
NN=ML 
NN»ML 
NN«HL 
NN«HL 
NN«HL 
NN«HL 
NN«HL 
NN=»ML 
NN«HL 
NN»ML 
NN«ML 
NN=HL 
NN«HL 
NN»HL 
NN«HL 
NN»ML 
NN=HL 
NN^HL 
NN*HL 



E$TAN 

ESTANO 

eSTANH 

E$XTQO 

ESXTOI 

ESXTOX 

ESXTQZ 

ESZTQO 

ESZTQI 

E$ZTOX 

ESZTOZ 

PSRABS 

PSRACOS 

PSRAIHAG 

PSRAINT 

P$RALQG 

PSRAHOO 

PSRASIN 

PSRATAN 

P$RATAN2 

P$RATANH 

P$RCA8S 

PSRCCOS 

PSRCEXP 

PSRCLOG 

PSRCQNJG 

P$RCOS 

PSRCOSO 



^N*HL 
HN«HL 
HN*ML 
?^Ma^L 
HN = HL 
MN«iL 
MN«iL 
HMs'lL 
HN**1L 
1N==HL 
1N«iL 
HN«*1L 
Hl^*^L 
iN*»1L 
MNaHL 
HN^HL 
HN»HL 
^M»iL 
HM«HL 
MN«^L 
v|N = HL 
MM»iL 
MN«HL 
MN«1L 
iN^'^IL 
^N«^L 
^N«HL 
MM*iL 



ETAN 

FTANO 

ETANH 

eXTOO 

EXTOI 

EXTOX 

EXTOZ 

£ZTOO 

EZTOI 

EZTOX 

EZTOZ 

^ABS 

PACOS 

PAIHG 

PAINT 

PALQG 

PAMOO 

PAS IN 

PATAN 

PATN2 

PATNH 

PCABS 

PCCOS 

PCEXP 

PCLOG 

PCNJG 

PCOS 

PCOSD 



OLD 

OLD 

OLD 

OLD 

OLD 

OLD 

OLD 

OLD 

OLD 

OLD 

OLO 

OLD 

OLD 

OLD 

OLD 

QtO, 

OiD_ 

OLD, 

QLO^ 

QLO. 



HAHE^ML 
NAIiE=HL 
NAf1E=Hi 
NAHE^HL 
NAME^Hl 
NAHE^HL 
NAHE=Mi 
NAnE«Mi 
NAME«Hl 
NAHE'ML 
NAHE^Hl 
NANE«Ht 
NAH£«HL 
NAHE^Hl 
HAHE«Hl 
NAME=HL 
NAHE^Mi 
NAHE^HL 
NAME»Hl 
NAME«fiL 
NAH£=HL 



PCQSH 

PCSIN 

PCSQT 

P0A8S 

PDACS 

POASN 

iPDATN 

POCOS 

POCSH 

POOIH 

POEXP 

POIH 

POINT 

PDLIO 

POLOS 

POMOD 

PONIT 

POPRD 

POSGN 

PDSIN 

PDSNH 



HN»HL 

HN'ML 
NN«I1L 

HH^ni 

NN*HL 
NN=ML 
NN«HL 
HH^HL 
NN«HL 
NN«HL 
NH'HL 
NN'HL 
NH«HL 
NN*ML 
NN^HL 
HN«ML 
NN^ML 
NN«Hl 
NN^ML 
NH=ML 



P$RCQSH 

PSRCSIN 

P$RCSQRT 

P$ROABS 

PSROACOS 

PSROASIN 

PSROATAN 

P$ROCOS 

PSROCQSH 

PSRDOIM 

PSROEXP 

P$ROIM 

PSRDINT 

PSROLQGIO 

PSROIOG 

PSROHOD 

P$R9NINT 

PSOPROO 

PSROSIGN 

P$ROSIN 

PSROSINH 



MH^HL 
MN«^L 
^^»ML 

^N«^L 
^N*HL 

?1H-^L 

^M = ^L 
iN«^L 
MN»1L 
HM'siL 

'IM'IL 
^N«1L 



PCOSH 

PCSIN 

PCSQT 

PDABS 

PDACS 

PDASN 

PDATH 

PDCOS 

POCSH 

PDOIM 

PDEXP 

PDIM 

POINT 

POLIO 

POLOG 

PDHQD 

PDHIT 

PDPRO 

PDSGN 

PDSIN 

PDSNH 



CONTROL DATA CORPORATION - CgM?>A^ir PRIVATE - Revision £ 

Cl-4 
C180 Common Modules Mathematical Library itmi) €RS 

85/08/23 

Cl.O HADIFY TO SCU CONVERSION 



OLD. 

OLD, 

OLD, 

OLD. 

OLD 

OLD. 

OLO. 

OLD. 

OLD. 

OLO. 

OLD. 

OLD. 

OLD. 

OLD. 

OLD. 

OLD. 

OLO, 

OLD, 

OLD, 

OLO. 

OLO. 

OLO. 

OLO, 

OLO. 

OLD 

OLO. 

OLD. 

OLD. 

OLO. 



.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 
.NAME 



»MLPDSQT 

'MLPDTAN 

'MLPDTNE 

=MLPOTNH 

«MLPOTQD 

=MLPDTOI 

«MLPDTOX 

«MLP0TOZ 

*MLPERF 

«MLPERFC 

*MLPEXP 

'•MLPIABS 

«MLPIDIM 

«MLPIDNT 

•MLPISGN 

=MLPITQD 

*NLPITQI 

«MLPITOX 

«MLPITOZ 

«MLPLGiO 

•MLPMQD 

=MLPNIT 

«MLPRANF 

*MLPSIGN 

«MLPSIN 

«MLPSIND 

*MLPSINH 

*MLPSQRT 

'sMLPTAH 



NN^ML 
NN«ML 
NN«ML 
NN«ML 
NN*ML 
NN'ML 
NN»ML 
NN«ML 
NN=ML 
NN«ML 
NN = ML 
NN«ML 
NN=ML 
NN*ML 
NN«ML 
HN»ML 
NN»ML 
NN^ML 
NN-ML 
NN«ML 
NN*ML 
NN«ML 
NN«ML 
NN*ML 
NN«ML 
NN'^ML 
NN^ML 
NN«ML 
HN«ML 



PSRDSQRT 

P$ROTAN 

P$R0ATAN2 

PSROTANH 

PSROTOD 

PSRDTOI 

P$RDTOX 

PSROTOZ 

PSRERF 

PSRERFC 

PSREXP 

PSRIABS 

P$RIOIM 

PSRIONINT 

PSRISIGN 

PSRITOD 

P$RITOI 

P$RITQX 

P$RITOZ 

PSRALOGIO 

PSRMOO 

PSRNINT 

PSRRANF 

P$RSIGN 

P$RSIN 

PSRSIND 

PSRSINH 

P$RSQRT 

PSRTAN 



1N«HL 
MN*ML 
MN*ML 
MN = ML 

MN*ML 
^N«ML 
MN'^L 
MM = ML 
MN = ML 
MNjsiL 
MN| = 1L 
MN^'^L 
IM^ML 
^^^«^L 
^N = iL 
MM«ML 
MN = ?1L 
»1t4«*1L 
MN«1L 
MN*ML 
^N = ML 
1N*iL 
MN«1L 
MN*ML 
MM«^L 

MN«ML 
^M*ML 



PDSQT 

PDTAN 

PDTN2 

PDTNH 

POTOD 

POTOI 

PDTOX 

PDTOZ 

«>ERF 

PERFC 

PEXP 

PIA8S 

PIDIM 

PIONT 

PISGN 

PITOO 

PITQI 

PITOX 

PITOZ 

PLGIO 

PMOO 

PNIT 

PRANF 

PSIGN 

PSIN 

PSINO 

PSINH 

PSQRT 

PTAN 



QLO^NAHE^MIPTAND 


NH«MLP$P_TAND 




HN^HLPTANO 


OiO.NAME^MLPTANH 


HN=HiP$RTANH 




NM's^LPTANH 


OtO.NAHE^illPXTOO 


NN*MLP$RXTO0 




^1^=i1LPXT0D 


QLO.NAHE«HlPXTOI 


HN»MLP$RXTQI 




H?4«iiPXTQI 


OLD.NAME'HIPXTOX 


NN'HiPSRXTOX 




nn^niPKiQX 


aiO.NAHE'HLPXTOZ 


NN«HLP$RXTQZ 




m^mPXTQi 


0L0.NAME*!11PZT0D 


NN«HLP$RZTOO 




^N«HLPZTO0 


aiO^NAME'NLPZTQI 


NH'HLPSRZTQI 




HN*'iLPZTOI 


OLD.NAHE*^ILPZTOX 


NN=MtP$RZTOX 




HN'^LPZTQX 


OlO^NAf1€«MlPZTOZ 


NN*MtP$RZTOZ 




^N«^LPZTOZ 


QLD.NAME^IiLTBDP 


NN=HLT$BOP_TYPE 




MNslLTBDP 


OLO_NAME«MlTBOPL 


NN«HLT$8DP_tENGTH 


M>l»»1tT80PL 


OLO.NAME^MLTC 


MN«HtT$CQHPl£X 




^H'^LTC 


OlO.HAHE«HlTCQMP 


HH«HLT$CQMPAR£ 




NN«»^LTCOHP 


OLO.NAHE^HLTOSl 


NN«niT$DIGIT^STRING^lENGTR 


MH'^LTDSL 


OLD^HAM£«MLTERR 


NN«HLT$ERROR 




1M«MLTERR 


OLO.NAME^HLTES 


NN*MLT$EXPQNEHT. 


.STYLE 


HN«^1LTES 


OlD^NAH£»i1LTFI 


HN^HLTSFtOATIMG. 


.INPUT 


MN^^ITFI 


OlO.NAM£«MLTFL 


NN»MLT$FtOATIHG, 


.LENGTH 


iM«MlTFL 


OLD NAIiE=f1LTF0RH 


HN«HLT$FORHAT 




'iHslLTFORH 



CONTROL DATA CORPORATION - Cm^AHY PRl^i ATE - Revision E 

Cl-5 
C180 Coromon Modules HatNemat i cal Library CH^IL) EPS 

85/08/23 

Cl.O HADIFY TO SCU CONVERSION 



OLD_NAHE*HLTHB NN*f1LT$HAH0LE_BLANKS 
OLD..NAH£*HLTIL NN«f1LT$INTEGER.LENGTH 
QLD^NAHE^HLTIT NN=MLT$ INTEGER. TYPE 
aL0.NAMe«HLT4UST NN«HLT$ JUSTIFY 
OLO.NAH£=HLTLR NN«HLT$LONGREAL 
0L0.NAME«HLTN08 NN*«LT$NQN.DECIHAL.BASE 
QLO_NAHE«HLTOF NN^MLTSOUTPUT.FORHAT 
QLD.NAHE^MLTSL NN»MLT$STRING.LENGTH 
QLD.NAME'HLTST NN*MLT$SI6N.TREATI1ENT 
OLO_NAME*MLVSTAT NN«MLV$STAT 



MN^iL 
^M«^L 
MN-HL 
^N'*1L 
iN = ML 

iN«ML 
iN*^L 



THB 

TIL 

TIT 

TJUST 

TLR 

TN08 

TOF 

TSL 

TST 

VSTAT 



CONTROL DATA CORPORATIOH - COMPANY PRIVATE - Revision E 
C180 Coinnton Hodules Mathefsat i cal I i br ary C :iHL> ERS 



85/08/23 



Table of Contents 



1*0 PREFACE * • • • . 

1,1 PREFACE TO REVISION 

1«2 SCOPE • • « • • « 

1*3 REFERENCES . • . . 



2,0 

2.1 

2«2 

2,3 

2*4 

2.5 

2.6 

2 

2 

2.7 

2.8 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



HATHEHATICAl FUNCTIONS ANO ROUTINES 
INTRODUCTION ....... 

NUflBER TYPES ....... 

GENERAL RULES ...... 

DOCUMENTATION CONVENTIONS 
LINKAGE INTERFACE .... 

ERROR HANDLING . .... . 

6.1 CALL-BY-REFERENCE . . 

6.2 CALL-BY-VALUE .... 
RELIABILITY ANO PERFORMANCE 
HATHEHATICAL FUNCTION SPECIFICATIONS 
8.1 A B S . 



8.2 

8.3 

8.4 

8.5 

8.6 

8.7 

8.8 

8.9 

8.10 

8.11 

8.12 

8.13 

8.14 

8.15 

8.16 



ACQS . 
AINAG 
AINT . 
ALOG . 
ALOGIO 
A«00 . 
ANINT 
ASIN . 
ATAN 
ATAN2 
ATANH 
CA8S 
CCOS 

cexp 

CLOG 



1-1 


1-1 


1-1 


1-2 


2-1 


2-1 


2-1 


2-3 


2-3 


2-4 


2-5 


2-5 


2-6 


2-6 


2-6 


2-8 


2-9 


2-10 


2-11 


2-12 


2-13 


2-14 


2-15 


2-16 


2-17 


2-18 


2-19 


2-20 


2-21 


2-22 


2-23 



2, 8,17 


coHas 
















2*8.18 


cos . 
















2.8.19 


coso 
















2.8.20 


COSH 
















2.3.21 


COTAN 
















2.8.22 


CSIN 
















2.8.23 


CSQRT 
















2.8.24 


0A8S 
















2.8.25 


D4C0S 
















2.8.26 


DAS IN 
















2.8.27 


OATAN 
















2.8.28 


DATANS 


> 














2.8.29 


DCQS 
















2.8.30 


DCaSH 
















2.8.31 


DDIH 
















2.8.32 


DEKP 
















2.8.33 


din . 
















2.8.34 


DIHT 














. . 



. . ■ . . ■ . . 

« . . . ■:. . . 

i 

. . . • ' . . 

. ' . . . ? . . 

« ' . « • ^ . . 

• ' . . . ' . . 

• ' . . . ^ . . 

• i • . « ^ . . 
. . . . ' . . 
. ' . . • t • « 

• ^ . . . 1 * . 

. ' . « . ': . . 

« ' . . . > . . 

• . * . ' . . 
« ' . . . '. . . 



« . 



2-24 
2-25 
2-26 
2-27 
2-28 
2-29 
2-30 
2-31 
2-32 
2-33 
2-34 
2-35 
2-36 
2-37 
2-38 
2-39 
2-40 
2-41 



CONTROL DATA CORPORATION - CI'I^ANlf PRIVATE - Revision E 

2 
C180 Coiajfion Hodules Hathemat icaJ Library IZnni) ?RS 

85/08/23 



2.8.35 


OLOG 


2.8.36 


DLQGIO 


2.8.37 


OMQD 


2.8.38 


ONINT 


2.8.39 


OPROO 


2.8.40 


DSIGH 


2.8.41 


OS IN 


2.3.42 


DSINH 


2.8.43 


OSQRT 


2.8.44 


DTAN 


2.8.45 


DTANH 


2.8.46 


OTQO 


2.8.47 


DTOI 


2.8.48 


OTOX 


2.8.49 


DTQZ 


2.8.50 


ERF . 


2.8.51 


ERFC 


2.8.52 


EXP . 


2.8.53 


eXTB 


2.8.54 


lABS 


2.8.55 


IDIH 


2.8.56 


IDHINT 


2.8.57 


INSB 


2.8.58 


ISIGN 


2.8.59 


ITOO 


2.8.60 


ITQI 


2.8.61 


ITOX 


2.8.62 


ITOZ 


2.8.63 


iioo . 


2.8.64 


HINT 


2.8.65 


RANF 


2.8.66 


RANGET 


2.8.67 


RANSET 


2.8.68 


SIGN 


2.8.69 


SIN . 


2.8.70 


SIHO 



2-42 
2-43 
2-44 
2-45 
2-46 
2-47 
2-48 
2-49 
2-50 
2-51 
2-52 
2-53 
2-54 
2-55 
2-56 
2-57 
2-58 
2-59 
2-60 
2-61 
2-62 
2-63 
2-64 
2-65 
2-66 
2-67 
2-68 
2-69 
2-70 
2-71 
2-72 
2-73 
2-74 
2-75 
2-76 
2-77 



2.8*71 


SINH 


2.8.72 


smi 


2.8.73 


TAN 


2.8.74 


TAND 


2.8.75 


TANH 


2.8.76 


XTOO 


2.8.77 


XTOI 


2.8.78 


XTOX 


2.8.79 


XT02 


2.8.60 


ZTOO 


2.8.81 


ZTQI 


2.8.82 


ZTOX 


2.8.83 


ZTQZ 






♦ . « . 
«... 

• . . . 
.... 
.... 
.... 
.... 
. . • « 
« « . . 
.... 
.... 
.... 
.... 



. • « • « ••.::.. 

« « . «^«'« « .^« . 

* . .».■■* • . ■ . . 

. . .«t«. .. . . 

i 

. . . ♦■.■.«•*!« . 

* . . • « ' * . . ' . . 

. . « * i • ■ . • • ■ . . 

. . . * . . « . ' . * 

. . . • I * ' . . . t . . 

. . . .^ .' . . .f ♦ . 



3.0 NUMERIC CONVERSION AND ASSEMBLY LANGUAGE $1JP5>0RT ROUTINES 

3.1 INTRODUCTION «•.••••...«•. .t «!. ••!.«« • 

3.2 DOCUMENTATION CONVENTIONS ..••,•,••..,.•• 



2-78 
2-79 
2-80 
2-31 
2-82 
2-83 
2-84 
2-85 
2-36 
2-87 
2-38 
2-89 
2-90 

3-1 
3-1 
3-1 



CONTROL DATA CORPORATION - COMPANY PRIVATE - Revision £ 



C180 Common Modules Mathematical Library CCi?1L1 ERS 



85/08/23 



3.3 LINKAGE INTERFACE 

3.4 ERROR HANOLINS . . 

3.5 CONVERSION ANO ALS 

3.5.1 HLPSBDP.CONVER 

3.5.2 MLP$BOP^TO.BIT 

3.5.3 MLP$C0HPAR£.8D 

3.5.4 HLPSCOHPARE.BY 

3.5.5 MLPSCOHPARE.CQ 

3.5.6 MLPSCOMPARE.FL 

3.5.7 HLPSCOHPUTE.FL 

3.5.8 MLPSCONVERT.FL 

3.5.9 HLPSCONVERT.IN 

3.5.10 HLP$INPUT.8AS 

3.5.11 MLPSINPUT^FLO 

3.5.12 HLPSINPUT.FLO 

3.5.13 HLPSINPUT.INT 

3.5.14 MLPSINPUT.UNP 

3.5.15 MLP$H0VE^8YTE 

3.5.16 HLPSOUTPUT.SA 

3.5.17 MLPSOUTPUT^FL 
3.5.13 MLPSOUTPUT.FL 

3.5.19 MLPSOUTPUT.IN 

3.5.20 NLPSROUND.FLO 

3.5.21 MLPSSCALE.FLO 

3.5.22 HLPSSCAN.BYTE 

3.5.23 HLP$TEST.FOR. 

3.5.24 NLP$TRANSLAT£ 

3.5.25 MLP$VAX_T0^18 

3.5.26 MLP$VAX_T0.18 

3.5.27 HLP$VAX.TQ^18 

3.5.28 HLP$VAX.T0^18 

3.5.29 MLP$170_TQ.18 

3.5.30 MLP$170.T0.18 

3.5.31 NLP$170.TQ.13 

3.5.32 NLP$180.TQ.17 

3.5.33 HLP$180.TQ.17 

3.5.34 MLP$180^T0.17 



S ROUTINE SPECIFICATI0M3 

S I ON ..... .. ..^. 

S AND MLP$BITS.T0_8D?> .i 



.1 



TES 

LLAT 

OATI 

OAT I 

OAT^ 

TEGE 

E.NU 

ATIN 

ATIN 

EGER 

ACKE 

S . 

SE.N 

OATI 

OATI 

TEG6 

ATIN 

ATIN 

3 . 

EXCE 

-BYT 

O.FL 

O.FO 

O^IN 

O.PA 

0.81 

O.FL 

O.IN 

O.BI 

O.FL 

O.IN 



.... 



... 



EO . . . 
NG . • « 
NG.NUM8ER ... .1 ... . 

TO.INTEGER ....••• .1 

^-TQ.FLOAT . . . .' . . . .i 

MBER •..•«••..••! 
G.HANTISSA ... . . . . . 

G.NUMBER .... • .... 



O.OECIMAL 



UN8ER . 
NG.DIGITS 
NG.NUMBER 
R ... 

G.NUHBER 
G.NUMBER 



PTIQN . . . 
ES . . . . . 
DATING . . . 
RTRAN.LQGICAL 
TEGER . . . 
CKED.DECIHAL 
NARY .... 
OATING . . . 
TEGER . . . 
NARY .... 
DATING . . . 
TEGER . ♦ . 



3-1 

3-2 

3-2 

3-3 

3-4 

3-5 

3-6 

3-7 

3-8 

3-9 

3-10 

3-11 

3-12 

3-13 

3-14 

3-15 

3-16 

3-17 

3-18 

3-19 

3-20 

3-22 

3-23 

3-24 

3-25 

3-26 

3-27 

3-28 

3-30 

3-31 

3-32 

3-33 

3-34 

3-35 

3-36 

3-37 

3-38 



APPENDIX k - TYPES AND CONSTANTS FOR SUPPORT ROUTINES 

• « «• • « • • « • • * « « « • « • •'•'•• •>• '•• * 

ES AND CONSTANTS FOR SUPPORT ROUTIMES 
$80P_LENGTH ♦ . • • 
iOP.TYPe . • • . . 
$C0i4PAR£ •••... 
SDIGIT^STRINS.LENGTH 
$ E R R R •• • • • • ♦ » 

SEXPONENT. STYLE • * 
SFiOATING.INPUT * . 
SFIOATING^LENGTH . • 
SFORHAT ...•.♦ 
T$FORTRAN.LOGICAUL£NGTH 
T$HAN01E_8LANKS • . . . 
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A1.12 MLT$IHT£GER.LENGTH . . 
A1.13 HLTSINTEGER.TYPe . • . 
Al,14 HLT$JUSTIFY • * • • . 
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A1.17 HLTSSIGN.TREATMENT * • 
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